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Summary 

Computer simulations provide a means of analyzing 
the behavior and interactions of complex dynamic 
systems such as aircraft propulsion systems. The hybrid 
(analog-digital) computer offers the opportunity to 
combine the best features of analog and digital 
computation to satisfy the requirements of engine 
simulation. Unfortunately there are a number of difficult 
problems to be faced when developing hybrid computer 
simulations. This report addresses some of those 
problems and offers a systematic, computer-aided, self- 
documenting methodology for developing hybrid 
computer simulations of turbofan engines. The concepts 
and computer codes presented are applicable to 
simulations of other engine types. 

The proposed methodology makes use of a host 
program, written in Fortran, that can run on a large 
digital computer. The host program performs all the 
calculations and data manipulations that are needed to 
transform user -supplied engine design information to a 
form suitable for the hybrid computer. The companion 
target (hybrid) computer program is, of course, machine 
dependent. As presented, the target program consists of a 
scaled-fraction Fortran program that runs on the EAI 
PACER 100 digital computer and a prescribed patching 
arrangement for the EAI 681 analog computer. A test 
case is described and comparisons between hybrid and 
user-specified engine performance data are presented. 
Steady-state results are shown to be within 2 to 3 percent 
of the user-specified data over the entire engine operating 
line. A number of simulated engine transients were run 
on the hybrid computer to demonstrate the transient 
capabilities of the simulation. Finally extensions of the 
host-target simulation concept are discussed, including 
planned investigations of model simplifications, 
alternative analog-digital computation splits, parallel 
processing, and other approaches to achieving real-time 
operation. 

Introduction 

The development of aircraft propulsion systems 
depends, to a great extent, on being able to predict the 
performance of the propulsion system and its associated 
controls. Computer simulations provide the means for 
analyzing the behavior and interactions of these 
increasingly complex systems prior to building and 


testing expensive hardware. Simulations can also serve as 
aids in understanding and solving problems that arise 
after the propulsion system is developed. 

Digital computer simulations with the necessary 
steady-state and transient capabilities have been 
developed. Simulations of specific engines and also 
generalized codes for simulating a range of engine types 
are available (refs. 1 to 6). Although these digital 
simulations offer many advantages, they do consume a 
great deal of computing time since they generally require 
iterative solutions and numerical integration. This 
restricts their usefulness in many applications. 

Analog computer simulations can provide high-speed 
(faster than real time) solutions, interaction with the user, 
and hardware-in-the-loop capability. However, analog 
computers are not widely used for engine simulations 
because of the large amounts of computing equipment 
and the time required to set up that equipment, 
particularly if many multivariate functions have to be 
generated. The digital computer is, of course, better 
suited for the function generation task. 

The hybrid (analog plus digital) computer offers the 
opportunity to use the best features of digital and analog 
computation to satisfy the requirements of engine 
simulation. By appropriately splitting the computation 
load between the analog and digital processors, steady- 
state and dynamic accuracy can be achieved with 
reasonable solution times (at or near real time) with a 
significant reduction in analog equipment. In addition, 
the user is provided “hands on” interactive control of the 
simulation with convenient display and recording of 
simulation results. Real-time, hybrid computer 
simulations of the Pratt & Whitney TF30-P-3 and 
FlOO-PW-lOO turbofan engines have been developed 
(refs. 7 to 9) and used to support the development of 
advanced electronic engine controls (refs. 10 to 13) at the 
Lewis Research Center. In these applications the engine 
simulations served as “test beds” for evaluating new 
control laws and for verifying control software prior to 
engine testing. 

Unfortunately the development of accurate hybrid 
computer simulations is often viewed as an “art” that 
requires specialists experienced in dynamic system 
modeling, computer programming, and computer 
operations. There are, in fact, a number of difficult 
problems that must be dealt with when developing hybrid 
simulations. As shown in figure 1 these include (1) the 
formulation of a mathematical model that is detailed 
enough for the particular application yet does not require 




Figure 1. - Simulation development process. 


excessive computing equipment or consume excessive 
computing time, (2) the preparation of simulation design 
data so as to put numerical values into the mathematical 
model, (3) the implementation of the simulation on the 
hybrid computer, (4) the evaluation of the simulation 
model relative to available design and off-design engine 
data, (5) the modification of the simulation, if necessary, 
to match the reference data, (6) the documentajion of the 
simulation and its development to facilitate changes and 
extensions of the simulation design as requirements and 
applications change, and (7) repetition of the 
development process for each new engine to be studied. 
This report addresses these problems and offers a 
systematic, computer-aided, self -documenting 
methodology for the development of a hybrid computer 
simulation of a typical turbofan engine. This 
methodology represents an extension of many of the 
ideas presented in reference 14. However, reference 14 
concentrated on the techniques for generalizing the 
simulation to handle many different engine 
configurations. This report focuses on one engine type 
and concentrates on the automation and documentation 
of the simulation development process. It is the feeling of 
the authors that the concepts and computer codes 
presented in this report are sufficiently general to permit 


their adaptation to simulations of other engine types. 
However, the problem of generalization is not addressed 
in this report. 

The proposed methodology is illustrated in figure 2. A 
host program, written in Fortran, runs on a suitable 
large-scale digital computer (in this case, an IBM 
370/3033). The host program performs all the 
precalculations and data manipulations that are needed 
to transform user -supplied engine design information to 
a form suitable for the hybrid computer. The host 
program trims the self-contained engine model to match 
user-supplied “design’* point performance data and can 
also provide a quantitative measure of each engine 
component model’s accuracy relative to supplied “off 
design” point data if such data are available. This 
permits off-line refinement and evaluation of the models 
by using the host program, prior to implementation of 
the hybrid simulation. Finally the host program provides 
printouts of simulated engine parameters and punched 
cards containing the hybrid computer setup and control 
information. 

The target (hybrid) simulation, as presented, runs on 
the Electronic Associates Inc. (EAI) PACER 600 hybrid 
computer system. That system consists of a 32K 16-bit 
digital processor, a 10-volt analog computer, and an 
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interface unit that provides communication between the 
analog and digital machines. The target simulation 
consists of digital subroutines and function routines and 
a prescribed analog patching arrangement. The digital 
routines do the following: (1) set up the analog computer 
components, including setting of potentiometers and 
integrator gains, (2) compute state variable derivatives 
based on sampled values of state variables and simulated 
engine inputs such as fuel flow, and (3) provide printouts 
of selected steady-state data. The analog computer is 
used, primarily, for integration of the state variable 
derivatives. Strip-chart recorders are used to monitor and 
record the transient behavior of the simulation. Twenty- 
five analog-to-digital converters (ADC’s) and 21 digital- 
to-analog converters (DAC’s) are used to transfer 
information between the analog and digital processors. 

Part I of this report contains a detailed description of 
the turbofan engine model and the host and target 
programs. Source listings of digital routines and analog 
patching diagrams are provided along with program 
statistics. Results are presented for a test case (a turbofan 
engine operating at sea-level, static conditions between 
idle and maximum power) including time histories of 
simulation transients. Computer printouts of host 
program input and output data for the test case are 
presented in Part II of this report (ref. 15). However, 
Part II is not required to understand the concepts and 
computer codes presented in Part I. 

The simulation, as presented, does not run in real time 
on the hybrid computer. This is due to the level of detail 
in the engine model, the extensive use of digital 
computation in the hybrid simulation, and the limited 
speed of the PACER 100 digital computer. However, the 
computer programs that are presented should provide an 
excellent baseline from which to explore model 


simplifications, different analog-digital computational 
splits, parallel processing, and other approaches to 
achieving real-time operation within the framework of 
the presented methodology. The computer-aided, self- 
documenting nature of the methodology should facilitate 
such studies- Nonetheless, the simulation, as presented, 
represents a significant improvement over batch running 
of comparable all-digital simulations. 


Engine Model 

The mathematical model describing the performance 
of a two-spool, augmented turbofan engine is patterned 
after the generalized engine model presented in reference 
14. Overall performance maps are used to provide 
accurate steady-state representations of the engine’s 
rotating components. The effects of variable fan and 
compressor geometry are accounted for by using baseline 
maps that correspond to nominally scheduled geometry 
and then biasing the baseline map outputs by functions of 
the actual geometry. Factors such as fluid momentum, 
mass and energy storage, and rotor inertias are included 
to provide transient capability. To improve steady-state 
accuracy, the effects of temperature and fuel-air ratio on 
thermodynamic gas properties are also included. The 
following sections describe the turbofan engine 
configuration and the individual component models. 

Engine Configuration 

Figure 3 contains a schematic representation of a two- 
spool, augmented turbofan engine. A single inlet is used 
to supply airflow to the fan. Air leaving the fan is 
separated into two flow streams: One stream passes 



Figure 3. - Schematic representation of augmented turbofan engine. 
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through the engine core; the other stream passes through 
an annular bypass duct. The fan is driven by a lov^- 
pressure turbine. The core airflow passes through a 
compressor that is driven by a high-pressure turbine. 
Both the fan and compressor are assumed to have 
variable geometry (vanes) to improve stability at low 
speeds. Engine airflow bleeds are extracted at the 
compressor exit (station 3) and used for turbine cooling 
(flow returns to the cycle) and for accessory drives (flow 
lost to the cycle). Fuel flow is injected in the main 
combustor and burned to produce hot gas for driving the 
turbines. The engine core and bypass streams combine in 
an augmentor duct, where additional fuel is added to 
further increase the gas temperature (and hence thrust). 
The augmentor flow is discharged through a variable 
convergent-divergent nozzle. The nozzle throat area 
(station 8) and exhaust area (station 9) are varied to 
maintain engine airflow and to minimize drag during 
augmentor operation. Figure 4 contains a computational 
flow diagram of the engine model. All symbols are 
defined in appendix A. The following sections describe 
the steady-state and dynamic elements in the engine 
model. 

Steady-State Models 

Flight condition and inlet. - For any simulated flight 
condition (altitude and flight Mach number) it is 


necessary to compute the fan inlet conditions (total 
pressure and temperature) and the back-pressure on the 
nozzle. A steady-state, military specification inlet 
recovery characteristic is used together with standard 
atmospheric data. The following equations define the 
flight condition and inlet model in the simulation: 

Pt)=f\{a) (1) 


To=h{a)+T^^ (2) 


7?i=1.0 ifMo<1.0 I 

= 1.0-0.075 (Mo- 1.0)1-35 ifMo>l.oJ 

^ (3) 

f 

+ 

o 

II 

(4) 


(5) 

Tl = To= 1-4 

(6) 























The functions f\ and are curve fits of atmospheric data 

from reference 16. 

Gas properties. -\n general, the engine component 
models utilize variable thermodynamic gas properties. 
Curve fits of data found in reference 17 are used to 
compute specific heats, specific heat ratios, and specific 
enthalpies from given values of temperature and fuel-air 
ratio. (JP-4 is assumed as the fuel.) For each 
intercomponent volume, the following equations are 
used: 


(^) J^) 
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7FAN = 72 

(21) 
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Fan. — Fan performance is represented by a set of 
overall performance maps. This technique does not 
account for interstage dynamics in the frequency range of 
interest (/'<10 Hz). Separate maps (functions) are used 
for the tip (bypass) and hub (core) sections of the fan to 
account for the pressure gradient that can occur at the 
fan exit. The maps are assumed to represent the fan 
performance with the variable geometry (inlet guide 
vanes) at nominal, scheduled conditions. The effects of 
off-schedule geometry are included in the model by 
adjusting the map-generated value of corrected fan 
airflow. These effects are assumed to be correlated with 
the actual vane position and the corrected fan speed. The 
following equations describe the fan model: 


1W’c1faN.A/“-' 6 \ Pj ’ 

(12) 


(13) 

(^c)pAN a/^2[i +/8(civv, Ni/e'A] 
^ 

(14) 

nFAN,OD-J9\-p^> -^ 2 / 

(15) 


Compressor. - The mathematical model of the 
compressor is very similar to the fan model. That is, 
overall performance maps are utilized with a shift in the 
corrected airflow based on off-schedule values of 
variable vane position. However, because of the greater 
temperature rise through the compressor, the assumption 
of constant specific heat ratio based on inlet conditions 
could lead to a problem in matching steady-state cycle 
data. For this reason an “average’* compressor 
temperature is computed and used to generate an average 
specific heat ratio. The following equations describe the 
compressor model: 



(22) 

(K)ci^ 2 . 2 U +/i2(RCVV, 

W2.2= ^ 

(23) 
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73= 72.2 (27) 

Bleeds. -T\it extraction of turbine cooling and 
auxiliary drive air from the compressor exit is accounted 
for in the turbofan engine model. Because of the high 
pressure at the compressor exit, flow through the bleed 
passages is assumed to be choked. The following 
equations describe the bleed model: 





(37) 

(38) 

(39) 
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II 

r 2 ■ 

(y3 + l)/2(73-l) 

(28) 

L(y3+1). 

. 0 ^) 
M'BLHT = ^BLHtV -a ) 

BL 


(29) 
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BL 
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Turbines. - As in the case of the fan and compressor 
the overall performance of the high- and low-pressure 
turbines is represented by bivariate maps. Turbine flow 


Combustors and ducts.— Toid\ pressure losses are 
included in the models of the main combustor, bypass 
duct, mixer entrance, and augmentor. Mach numbers in 
these regions are assumed to be moderate, thus allowing 
the use of fairly simple loss equations. The losses for the 
main combustor, bypass duct, and augmentor are 
assumed to be proportional to the square of the corrected 
flow parameters The pressure drop associated 

with the entrance to the augmentor is assumed to be 
proportional to the pressure level. The heat addition 
associated with the burning of fuel in the main combustor 
and augmentor is assumed to take place in volumes 
and F 7 , respectively. As an aid in matching steady-state 
cycle data, average combustor temperatures are 
computed and used in the dynamic energy balances (see 
the section Intercomponent volumes). The following 
equations describe the combustor and duct models: 


and enthalpy drop parameters are computed as functions 
of pressure ratio and corrected speed. As described in the 
section Intercomponent volumes, the cooling bleed for 
each turbine is assumed to reenter the cycle at the turbine 
discharge, although a portion of each bleed flow is 
assumed to do turbine work. The following equations 
define the turbine models: 

(VhT-/i4(^*^.) 

(32) 

74 

(33) 
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(A/j)ht = 
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(44) 

^5=^PR5^6 

(45) 

n/_ 

(46) 

^ab = /3ab76 + (1 -/3ab)T7 

(47) 

A/iab = HVFj;ab 

(48) 


6 



’/AB = 

■■fi9lif/a)-,] 

(49) 

/ pf\ 
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_ i^F.l + ^F,a) 

(50) 

r 


’ ((Vg - VW/r 4 ) 


x’^ScJnPaT'i 

VE 

P\6 = 

Pl3 

(51) 

Qn=/23(^) 

Ti6 = 

Tn 

(52) 



( 60 ) 

(61) 

(62) 


Exhaust nozzle. -A convergent-divergent nozzle 
configuration is assumed for the turbofan engine model, 
A convergent-only nozzle may be considered a subset of 
the more general model. A fairly detailed mathematical 
representation of the thermodynamics is used, including 
the treatment of normal shocks in the divergent section. 
The pressure losses associated with the shock are 
computed along with gross and net engine thrust. The 
following equations define the nozzle model and are 
based on material presented in reference 18: 



r 2 1 iv 2(7 /v- 1) 

Ut^+D-I 


(53) 

Pn= +A£{Pe~Po) 

(54) 

II 

0 

(55) 


(56) 


Otherwise a shock may exist in the divergent portion of 
the nozzle. To compute the required parameters under 
these conditions, shock tables such as those in reference 

18 must be used. 



(63) 
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If PQ/P’] = {P()/P-])^^y the shock will be in the nozzle exit 
plane. Then 

Pe=Po ( 68 ) 
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If P(/Pt<(Po/Pi)^^, the shock is external to the nozzle. 


Then 



(73) 


(74) 


(75) 
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Ve = AT^v.nI J 

(76) 


If (Po/Py)^j>Po/PT>(Po/Pj)^^, the shock is in the 
divergent section and 


II 

(77) 
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II 
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II 
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II 

(82) 

To solve these equations, can be varied until 

equations (82) and (77) produce the same values for /*£. 
Then 

oo 

II 

(83) 

\'^yNPAScPi~\'^ 

(84) 


The compressible flow tables in reference 18 and the 
functional relationships (/21 to/30) assume a specific heat 
ratio of 1.4. In general, the specific heat ratio in the 
tailpipe of a turbofan engine will be lower than this value, 
particularly during augmentor operation. To compensate 
for this error when setting up the model to match 
specified cycle data, the value of in the flow rate and 
velocity equations is adjusted in the host program to give 
the desired values of flow rate w^ and gross thrust Fn- 
The net engine thrust is computed by subtracting the inlet 
ram drag from the gross thrust. 


F„=Fn-MoW2{^^^^) (85) 


Engine Dynamics 

Intercomponent - Intercomponent volumes 

are assumed at engine locations where either (1) gas 
dynamics are considered important or (2) gas dynamics 
are required to avoid the need for iterative solution of 
equations. In these volumes the storage of mass and 
energy occurs. The dynamic forms of the continuity, 
energy, and state equations (ref. 19) are solved for the 
stored mass, temperature, and pressure in each volume. 
The following equations define the dynamic models of 
the intercomponent volumes. Appendix B contains a 
derivation of the general form of the energy equation 
used in the engine model. 


^ 13 “ ( (^2 ^ 2.2 “ ^ 13 ) ^ 13 ,/ 

Jo 
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( 89 ) 
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( 101 ) 


= Jo(l'^6 + ^F,7 - W^)dt + W-jj 

77 = Jo ([['^6^AB + '^F7 A/IaB“^ 7(^6 + ^F,7)]/ ^^t),7 
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_ RaW-,T2 
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(103) 


Fluid momentum. - The effects of fluid momentum on 
the transient behavior of the turbofan are considered in 
the bypass and augmentor duct models. The contribution 
of flow dynamics in the compressor, main combustor, 
and turbines is assumed to be high frequency (> 10 Hz) 
and is ignored. The following equations define the flow 
dynamics in the engine model: 


(7’l6-7’6¥t+H'i3,/ 


m-6 


=^At) ^SPi-Pi)dt + w^,i 

^ ' An 


(104) 


(105) 


Rotor inertias. -Th^ most significant factors in 
determining the transient behavior of the turbofan are 
the rotor moments of inertia. Rotor speeds are computed 
from the dynamic forms of the angular momentum 
equations. 




^L=\ — J ^ UA/Ilt(^4.1 +7^BLWLT1^BLLt) 

- (<V2 - ^2.2)ih 13 - /22) 

-<V2.2(/J2.2“^2)]/ Fil^dt +Nij (106) 
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Nh= ( y) [[^ht(^4 + ^blwht^blht) 

- 1 ^ 2 . 2(^3 ”^ 2 . 2 )]/ + ^//,/ (107) 

Thermal lags due to the storage of heat in the engine 
metal are not included in the turbofan model. 


Hybrid Computer Program 

Hybrid Computing System 

The equations describing the turbofan engine model 
were implemented on one of the Lewis Research Center’s 
two hybrid computing systems. Each hybrid computer 
consists of an EAI PACER 100 digital processor, two 
PACER 681 (680) analog processors, and a PACER 693 
communications interface for control and data exchange 
between the digital and analog processors. Table I lists 
the salient features of the hybrid computing systems. The 
following sections describe the implementation of the 
turbofan engine simulation on the hybrid computer. 

Scaling 

The use of the analog computer requires the scaling of 
the analog variables so that no analog signal exceeds 1 .0 
computer unit (10 V on the EAI 681). For each variable x 
a scale factor SF;^ is chosen so as to limit the scaled 
variable X=x/S¥x to the range - 1 <X< + 1. Also, to 
reduce the core requirements and computing time in the 
PACER 100 digital part of the simulation, it was decided 
to use scaled fractions throughout the digital program. 
Therefore all digital variables are scaled in the same way 
so as not to exceed unity during digital program 
execution. The section Host Digital Program describes 
how the user specifies scale factors. Although the user 
may specify most scale factors through the host program, 
certain scale factors are fixed to allow the use of general- 
purpose subroutines. For example, all fuel -air ratios are 
scaled for a maximum of 0.08. Also, certain scale factors 
are related to user-specified scale factors. For example, 
the scale factor on specific enthalpy h is fixed as the 
product of the scale factor on specific heat Cp and the 
scale factor on temperature T. 

In addition to the previously described amplitude 
scaling, it may be necessary to time scale the analog 
portion of the simulation. To allow the treatment of 
digital outputs as continuous inputs to the analog, a 
sufficient number of cycles through the digital loop must 
occur for each cycle of the analog frequencies. Often 
computational stability can only be achieved by 
decreasing the analog frequencies (slowing down the 
analog). A time-scale factor SF/ is selected such that the 


TABLE L- FEATURES OF THE LEWIS HYBRID 
COMPUTER SYSTEMS 

[ADC’s are 14 bits plus sign and do not invert; DAC’s are 14 bits plus 
sign and do not invert (all DAC’s are multiplying DAM’s).] 

(a) PACER 100 digital system 


Total memory (at 16 bits/word), words 

32 768 

Cycle time, /xsec 

1.0 

Moving head disk Two platters for 2.2 megawords 

Card reader, cards/min 

300 

Line printer, characters/sec 

165 

High-speed paper tape reader, characters/sec 

300 

High-speed paper tape punch, characters/sec 

120 

Tektronix 4010 CRT terminal 


Hard copier for Tektronix 4010 



(b) 680-681 analog systems 



Consoles Al, Bl, B2 

Console A2 

Number per console 

Integrator summer 

30 

30 

Track/store summer 

12 

12 

Zero-limit summer 

24 

12 

SJ-INV (interface) 

24 

24 

SJ-INV (fixed DFG) 

0 

2 

QSM inverter 

60 

48 

QSM-HG amplifier 

30 

24 

VDFG inverter 

0 

6 

Total amplifiers per console 

180 

158 

SS potentiometers (2-terminal) 

64 

96 

SS potentiometers (3-terminal) 

16 

24 

HS potentiometers (2-terminal) 

12 

12 

DCA’s 

40 

0 

Total potentiometers per console 

132 

132 

Multipliers 

30 

24 

DCFG’s (digital) 

8 

0 

VDFG’s (analog) 

0 

6 

Fixed DFG’s (analog) 

0 

2 

Variable limiters 

12 

12 

Comparators 

24 

24 

Function relays 

24 

24 

D/A switches 

24 

24 

General-purpose registers 

6 

6 

“AND” gates 

36 

36 

BCD counters 

3 

3 

Monostable timers 

6 

6 

Logic differentiators 

6 

6 


(c) 693 interface system 



System A 

System B 


Number 


ADC’s 

32 

48 

DAC’s 

24 

24 

Control lines per console 

16 

16 

General-purpose interrupts 

8 

8 

per console 

Sense lines per console 

8 

8 

Interface clock 

1 

1 
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computer time t' equals SF^/. A time-scale factor less 
than 1.0 corresponds to speeding up the problem. 
Reference 14 provides some guidelines for selecting a 
suitable time-scale factor. The section Results and 
Discussion also covers this issue. 

Having specified amplitude and time-scale factors 
through the host program, the user need not be 
concerned about the scaling of variables within the 
simulation. The host program computes digital 
coefficients and analog potentiometer settings based on 
the specified scale factors. The equations that are 
programmed on the host and target digital computers are 
organized in such a way as to minimize the chance of 
overflows. Table II lists the prescaled variables, their 
scale factors, and implied relations between scale factors. 

Target Analog Program 

The computational split between the analog and digital 
portions of the hybrid simulation is basically the same as 
that used in reference 14. That is, the analog computer is 
limited to doing continuous integration with respect to 
time and some related multiplication and division. By 
comparison, the real-time simulations in references 7 to 9 
used extensive analog computation, with the digital 
limited to performing bivariate function generation. 

Scaled values for the engine state variables (stored 
masses, temperatures, duct flow rates, and rotor speeds) 
and intercomponent volume pressures are computed on 
the analog computer by using scaled versions of 
equations (86) to (107). Appendix C lists all the scaled 
analog equations. 

Figure 5 illustrates the analog calculation of variables 
in volume K3. Identical circuitry is patched by the user 
for each of the intercomponent volumes. Having selected 
the analog components, the user can specify the addresses 
of the integrators and potentiometers as input to the host 
digital program (see the section Host Digital Program). 
Using design-point information, scale factors, and 
geometric engine data, the host program will 
automatically compute amplifier gains and potentiometer 
settings and will generate punched-card data for 
automatic setup of those components. The following 
section describes the PACER 100 software that 
accomplishes the automatic setup of the analog. Figures 6 
and 7 illustrate the analog calculations of bypass duct 
flow rate and low-rotor speed, respectively. Appendix C 
contains patching diagrams for the entire analog portion 
of the simulation. In addition to computing state 
variables and pressures, the analog computer is used to 
generate (or transmit from external sources) inputs to the 
simulation. These inputs include scaled control inputs 
(fuel flow, e.g.) and scaled flight condition inputs 
(altitude, Mach number, and sea-level ambient 
temperature). Table III defines the analog patching 
structure to which the user must assign components. 


TABLE II. -PRESCALED 
SIMULATION VARIABLES 


Variable, 

X 

Scale factor, 
SF, 

Q.jv 

1.0 

^v.N 

I.O 


0.5 Btu/Ibm *R 


0.5 Btu/lbm *R 


0.08 

h, 

SFcp,SFr, 

T'i 

SFr, 

T^(, 

SFr,3 

Tb 

SFr, 

Tc 

SFr3 

Tim 

lOOO' R 

7’ab 

SFr, 

Pi 

SFp, 

P\t 

SFp,3 

Pe 


l^BLHT 

0.2 SFij j 

^BLLT 

0.02 SFij ^ 

I^BLOV 

0.002 SF^j j 

AT/T 

1.25 

V 

1.0 

7/ 

2.0 


Inputs to the analog computer from the digital 
computer are transmitted by 21 DAC’s. They include the 
scaled stored mass derivatives, nonspecific temperature 
derivatives {WT), rotor speed derivatives, and variables 
for display. Outputs from the analog computer to the 
digital computer are transmitted by 25 ADC’s. They 
include the intercomponent pressures and temperatures, 
duct flow rates, rotor speeds, control inputs, and flight 
condition inputs. Table IV lists the DAC and ADC 
variables and designated channels. 

Target Digital Program 

The target digital processor is used to perform the bulk 
of the computations in the target program. That is, the 
digital must do all the arithmetic and function generation 
necessary to compute the time derivatives of the engine 
state variables. Other engine variables of interest, such as 
net thrust, are also computed in the digital and output to 
the analog for display and recording. The digital 
computer is also used for steady-state data display and 
for automated setup of the analog computer. 

The following sections describe the target digital 
program that has been developed for the EAI PACER 
100 digital processor and the EAI 693 hybrid interface 
that allows the PACER to communicate with the EAI 681 
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GAIN (2) -1.0 if SFi, 

<1.0 

SFwjSFj 

.10lG(2)ojHE,^yyi5E 


Figure 5. - Analog computation of compressor discharge conditions. 
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I Wd SF^,, SFj gain (9) CAIN (9) • 1.0 if (^) < 1.0 
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> GAIN (9) 


V^/O SF^ijSF, 

. loTG (9) OTHERWISE 


Figure 6. - Analog computation of bypass duct flow rate. 
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PVAL(33I- 


ir^ II SF, gain (8) 


PVAL (34) • \des 


SF, 


Nl 
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GAIN (8) • 1.0 if ''^'^LT 1 <- j q 

’f^SF^tSFt 
. loIG(8) OTHERWISE 


Figure 7. - Analog computation of fan rotor speed. 


analog computer. Although the target digital program is 
computer dependent, it should provide a sound basis for 
development of target programs for other hybrid 
computer systems. 

Input data. -The link between the host digital 
program and the target program is a set of punched cards 
containing component performance map data, digital 
coefficients, analog potentiometer settings, integrator 
gains, and other information needed to set up and run the 
hybrid computer simulation. Figure 8 shows the nature 
and ordering of the punched -card data generated by the 
host program. 

The first six sets of data cards contain bivariate 
function data defining the steady-state performance of 
the engine’s rotating components. The sets are read in the 
following order: (1) fan variable-geometry effects map, 
/gfCIVV, NL/ 6 ' 2 ); (2) compressor variable-geometry 
effects map, /izfRCVV, (3) baseline fan 

performance map, fliPn/Pit t = 9, 7, 10; 

(4) baseline compressor performance map, f,{P 3 /P 2 . 2 > 
Nfi/o' 2 ^ 2 ), / = 11, 13; (5) high-pressure-turbine 
performance map, y)(P 4 .i/P 4 , N/z/Tp), /=14, 15; and 
(6) low-pressure-turbine performance map, f^Ps/P^.u 
/= 16, 17. The performance map cards contain 
information pertaining to the size of the map arrays, the 


TABLE III. -ANALOG COMPONENT ARRANGEMENT 


Model element 

Gain integer 
(IG(K)) index, 
K 

Integrator address 
(AADR(K)) index. 
K* 

Potentiometer address 
(PADR(K)) index, 
Kb 

F,3 

1 

1-2 

I-2-3-4.5 

Vi 

2 

3-4 

6-7-8-9-10 

Va 

3 

5-6 

11-12-13-14-15 

V*.x 

4 

7-8 

16-17-18-19-20 

• Fj 

5 

9-10 

21-22-23-24-25 

Vi 

6 

11-12 

26-27-28-29-30 

Ih 

7 

13 

31-32 

II 

8 

14 

33-34 

(A/Dd 

9 

15 

35-36-37-38 

(/1//)ab 

10 

16 

39-40-41-42 


Model input 

Potentiometer address 
(PADR(K)) index. 

K 

Biased variable 

Potentiometer address 
(PADR(K)) index, 

K 

^F,A 

43 

P 13 /P 2 

52 

^F.l 

44 

Pi/P2.2 

53 

^8 

45 




46 



CIVV 

47 



RCVV 

48 



ALT 

49 



Mo 

50 



Tam 

51 




*W-T integrators for volumes. 

^Address index is same as setting index, as defined in appendix C. 
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TABLE IV. -ADC AND DAC VARIABLES 


ADC channel 

Variable 

0 

ALT 

1 

A/o 

2 

^am 

3 

^13 

4 

Nl 

5 

-CIVV 

6 

Pi 

7 

Nh 

8 

-RCVV 

9 

Wi3 

10 

T, 

11 

Ti 

12 

Pa 

13 

Ta 

14 

Paa 

15 

^F.A 

16 

Tax 

17 

Pi 

18 

^6 

19 

Ti 

20 

Pi 

21 

Ti 

22 

Ai 

23 

Ae 

24 

^F.l 


DAC channel 

Variable 

0 

Pi 

1 

Ti 

2 

Pn/Pi 

3 


4 

Pi/Pl.l 

5 

^2.2^/i /^2.2 

6 

dW^i/dt 

7 

Wi^dTi^/dt 

8 

dW^/dt 

9 

W^dT^/dt 

10 

dW^/dt 

11 

W^dT^/dt 

12 

dW^^^/dt 

13 

W^^xdT^^\/dt 

14 

dW^/dt 

15 

^tdTe/dt 

16 

dW-^/dt 

17 

W-,dT-,/dt 

18 

dN^/dt 

19 

dN^/dt 

20 

Fn 


format of the data cards, scale factors to be used in 
scaling the map data, and the unsealed performance map 
data. The sets of performance map cards are identical to 
the sets input by the user to the host program. 

The first card for each set of map data contains: (1) a 
map number to be used in the Zi=f,{X, Y) function call, 
(2) the number of curves Y on the map, (3) the number of 
points (X,Z) on each curve, (4) the number of common 
functions Z/ of the same independent variables, and 
(5) an additional integer to be discussed later. A (513) 
format is used to read the first card. The second card for 
each map contains the formats to be used in reading the 
remaining map cards. A (28A2) format is used to specify 
the formats of (1) the X, Y, and Z,- scale factors where 
/ = 1 to 4, (2) the X values, (3) the Y values, and (4) the Z,- 
values. The third card for each map contains the X, Y, 
and Z,- scale factors in the specified format. The 
remaining cards in the set contain (in order) the T values, 
X values for the first curve, Z,- values for the first curve, 
X values for the second curve, Z,- values for the second 
curve, and so forth. For those functions where each curve 
may be defined by identically the same X values, those X 
values need only be input once, immediately following 
the Y values. In this case a nonzero integer is added as the 
fifth element in the first card of the set. A blank card 
follows the last card of the last map. Figure 9 shows an 



Figure 8. - Host-program-generated target program input data. 
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1 MAP NUMBER. NCV, NPT, 

NFCT SCALE 

(5F8.1) 

(5F8.1) 

(3F8.1) 

(5F8.1) 

(5F8.2) (5F8.3) 

< FACTOR, X, Y, Zl, Z2, 

Z3, FORMATS 

1.0 

1.0 

1.0 

1.0 

1.0 

r 

lx, Y, Zl, Z2, Z3 SCALE FACTORS 

0.2 

0.4 

0,6 



Y 

VALUES 


0.0 

0.2 

0.3 

0.4 

0.5 

X 

VALUES - CURVE 1 


0.3 

0.3 

0.2 

0.1 

0.0 

Z1 

VALUES - CURVE 1 


0.15 

0.15 

0.10 

0.05 

0.00 

Z2 

VALUES - CURVE 1 


0.225 

0.225 

0.150 

0.075 

0.000 

Z3 

VALUES - CURVE 1 


0.0 

0.4 

0.5 

0.6 

0.7 

X 

VALUES - CURVE 2 


0.6 

0.6 

0.4 

0.2 

0.0 

Z1 

VALUES - CURVE 2 


0.30 

0.30 

0.20 

0.10 

0.00 

Z2 

VALUES - CURVE 2 


0.450 

0.450 

0.300 

0.150 

0.000 

Z3 

VALUES - CURVE 2 


0.0 

0.6 

0.7 

0.8 

0.9 

X 

VALUES - CURVE 3 


0.9 

0.9 

0.6 

0.3 

0.0 

Z1 

VALUES - CURVE 3 


0.45 

0.45 

0.30 

0.15 

0.00 

Z2 

VALUES - CURVE 3 


0.675 

0.675 

0.450 

0.225 

0.000 

Z3 

VALUES - CURVE 3 



NCV - NUMBER OF CURVES IN MAP 

NPT - NUMBER OF POINTS PER CURVE 

NFCT - NUMBER OF COMMON FUNCTIONS OF X, Y 

Figure 9. - Example of map input data. 


example of map data where there are three common 
functions of the independent variables. 

Following the component performance map data are 
cards containing digital coefficients. The coefficients are 
computed by the host program from user-supplied 
design-point data, scale factors, and engine geometric 
information. Also, the host programs “trims” the 
coefficients to achieve an equilibrium condition at the 
design point. The digital coefficients are punched in a 
(3X,5(1X,F6.5,2X)) format, which permits them to be 
read by the target program in a (3X,5(S7,2X)) format and 
declared as scaled-fraction vru'iables. 

Following the digital coefficient data is a card 
containing four integers (INLET, KBH, KBL, and KBV) 
in a (1X,4(I7,2X)) format. A value of 1 for INLET 
denotes the use of the standard inlet pressure recovery 
characteristic (eq. (3)) in the simulation. Any other value 
will result in an inlet recovery of 1 .0 (no inlet). The KBH, 
KBL, cmd KBV integers indicate whether the compressor 
discharge bleeds of equations (28) to (31) are to be 
included in the simulation. The host program determines 
whether positive values of fvgLHx, Fvbllt. and <vblov 
are required to match the user-supplied design point data. 
If so, the corresponding integers are set to 1 . If negative 
or zero values are required, the corresponding integers 
are set to 0 and the bleed flows are ignored in the 
simulation. 

The next set of cards contains analog integrator 
addresses and associated gain integers in a (314) format. 
The user assigns integrator addresses to the analog 


patching structure defined in table III and appendix C. 
The integrator addresses are input to the host program, 
and the host program computes the required integrator 
gains based on design-point data, scale factors, etc. The 
gain integers represent the power-of-10 gain required. 
The first six cards in the set contain three integers each. 
The first two integers are the addresses of the two 
integrators associated with a particular intercomponent 
volume. The third integer is the gain integer for those two 
integrators. The next four cards contain two integers 
each -the integrator address and gain integer associated 
with (in order) the high-speed spool, the low-speed spool, 
the bypass duct, and the augmentor duct. 

Following the integrator data are cards containing 
initial conditions for the 21 DAC’s used in the hybrid 
simulation. The DAC’s must be initialized to avoid 
analog component overloads prior to executing the 
dynamic portion of the target digital program. The DAC 
initial conditions are punched by the host program in a 
(3X,5(1X,F6.5,2X)) format, which permits them to be 
read by the target program in a (3X,5(S7,2X)) format and 
declared as scaled-fraction variables. 

The last set of cards contains analog potentiometer 
addresses and potentiometer settings. As in the case of 
the integrators the user assigns potentiometer addresses 
to the analog patching structure and inputs those 
addresses to the host program. The host program 
computes the required settings and punches the addresses 
and settings in a (1X,A4,1X,F5.4) format. The cards are 
read by the target program in a (1X,A4,1X,S5) format. 
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Figure 10. - Organization of target digital program. 


Organization . 10 shows the structure of the 
target digital program. The program consists of a number 
of subroutines. The major subroutines are INITAL, an 
initialization and setup routine, and LOOP, the digital 
portion of the dynamic engine simulation. INITAL is 
executed once prior to entering the main dynamic loop, 
LOOP is repetitively executed at a fixed rate selected by 
the user on the basis of (1) the time required to perform 
the calculations in LOOP and (2) the maximum allowable 
digital delay for stable operation of the hybrid 
simulation. LOOP samples analog variables through 25 
ADC’s, performs the calculation of the engine state 
variable derivatives, and outputs those derivatives to the 
analog through 21 DAC’s. Other subroutines and 
function routines are called by INITAL and LOOP to 
support the computation and the input and output. 
Appendix D contains a flow chart of the target program 
and source listings of the target program routines. 

To facilitate the running of the target program on the 
PACER 100 digital processor, the INITAL and LOOP 
subroutines were run under the control of a general- 
purpose main program called EXECl (refs. 20 and 21). 
Although not required for running the target program, 
EXECl provided a time-shared, interrupt environment 
that allowed interactive control of steady-state and 
dynamic data displays. Subroutine INFORM is called by 
EXECl when the user depresses a sense switch at the 
computer console and if the computations in LOOP have 


been completed. That is, INFORM runs on a lower 
priority level than LOOP. If spare time is available, the 
user can interactively obtain displays of simulation data 
while the program is running. For the application 
reported herein, an EXECl subroutine, BTASK, was 
constructed to unscale and output tables of steady-state 
data upon user command. This method of obtaining 
steady-state results was used in lieu of WRITE statements 
in the target program. Also, subroutine LEVELS, 
running at the next-to-lowest priority level (INFORM is 
the lowest), was used to obtain map- and function-out- 
of-range messages at the line printer (or CRT). Another 
EXECl-related subroutine, described in references 20 
and 21, is LEVELO. For the application reported herein, 
LEVELO was replaced with a dummy routine. The 
following sections describe the various routines that 
make up the target program. 

Subroutines. - The target program is made up of the 
routines INITAL, LOOP, LEVEL9, BTASK, DATAIN, 
FLCOND, PROCOM, TRAT, and NOZZL. 

INITAL: Subroutine INITAL is a special-purpose 
initialization and setup routine that is called once prior to 
executing subroutine LOOP. INITAL selects the analog 
console and initializes the analog modes through calls to 
hybrid linkage routines. INITAL calls subroutine 
DATAIN to accomplish the reading in of component 
performance map data and the scaling of those data. The 
dimensions of the map arrays and the scaled map data are 
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stored in the MAPS common block. Digital coefficients 
are read in by INITAL and stored in the COEF common 
block. The inlet option integer INLET and the bleed 
integers KBH, KBL, and KBV are read in and stored in 
the INL and BLEED common blocks, respectively. 
INITAL then reads the punched cards containing the 
integrator data. INITAL translates the integrator gain 
integers into specific analog patching instructions. Table 
V relates the desired integrator gain (1) to the selection of 
either a 1- or 10-input gain by positioning of a function 
relay and (2) to the selection of additional multiplicative 
gain by appropriate patching of logic signals into the “F” 
and “MS” time-scale inputs on the EAI 681 integrators. 
INITAL outputs patching instructions to the user at the 
line printer (or CRT). INITAL also reads in DAC initial 
condition data, stores them in the IDAC common block, 
and initializes the DAC’s. Finally, INITAL reads in the 
potentiometer data and sets the potentiometers to their 
design-point values. 

LOOP: Subroutine LOOP is a scaled-fraction Fortran 
implementation of the steady-state turbofan engine 
model. Scaled versions of equations (1) to (85) and the 
integrands in equations (86) to (107) (excluding (104) and 
(105)) are programmed in LOOP and are repetitively 
solved. For each pass through LOOP, (1) hybrid linkage 
routines are called to read ADC’s, (2) the derivative 
calculations are performed, and (3) hybrid linkage 
routines are called to output the DAC’s. To support the 
calculation of derivatives, LOOP calls subroutines 
FLCOND, PROCOM, TRAT, and NOZZL and function 
routines MAP, MAPL, FUNl, and FUNIL. Common 
blocks MAPS, COEF, INL, BLEED, and IDAC provide 
LOOP with the required map data, digital coefficients, 
integer data, and DAC initial conditions. A common 
block VAR is used to store all the variables computed in 
LOOP, making it possible to output any of the variables 
through INFORM. DATA statements in LOOP define 

TABLE V.-EAI 681 ANALOG 
INTEGRATOR GAIN PATCHING 

[Master (default) control sets F-SEC (F-MS); 
logic 1 denotes “high”; logic 0 denotes 
“low”; function relay plus position feeds 
10 input to integrator; function relay 
minus position feeds 1 input to integrator.) 


Desired 

integrator 

gain 

“F” logic 
input 

“MS” logic 
input 

Function 

relay 

position 

1 

0 

0 

_ 

10 

1 

0 

— 

100 

1 

0 

+ 

1000 

0 

1 

_ 

10000 

1 

1 

_ 

100000 

1 

1 

+ 


univariate functions =/ 2 o(^o/^ 7 ) and 

LOOP represents a 1:1 correspondence 
to the floating-point (but scaled) Fortran code in the host 
program’s ENGINE subroutine. The most noticeable 
differences are the declaration of scaled-fraction 
variables, the prefix on the square-root function in 
LOOP. The ordering of calculations in each equation in 
LOOP is intended to minimize the chances of scaled- 
fraction overflows during off-design and transient 
operation of the simulation. To minimize the effects of 
digital delays on simulation accuracy and stability, the 
sampling of analog variables and the output of digital 
results are organized as shown in figure 1 1 . References 9 
and 22 indicate that this method of breaking up the 
digital loops can significantly reduce the dynamic errors 
associated with digital delays in hybrid simulations. 

LEVELS: Subroutine LEVELS is called by EXECl 
upon user command by means of a pushbutton at the 
analog console. LEVELS calls the map- and function- 
out-of-range routines MOOR and POOR to output 
messages to the user indicating the map or function 
number and the map or function input values at the time 
the out-of-range condition occurred. Appendix C shows 
the logic patching on the analog console that is required 
by LEVELS. 

BTASK: Subroutine BTASK, called by EXECl, 
unscales and outputs simulation data upon user 
command by means of a sense switch at the digital 
console. As written, BTASK reads in cards containing 
scale factors and desired values for the variables to be 
listed. BTASK outputs tables of unsealed simulation 
variables and ratios of calculated-to-desired values. 

DATAIN: Subroutine DATAIN is a general-purpose 
data input routine that is called by INITAL to read 
component performance map data from cards and to 
scale the map data. The call to DATAIN contains two 
arguments: an integer array associated with the first map 
to be read, and the scaled-fraction array into which the 
scaled data for the first map will be placed. DATAIN 
reads punched cards that contain (for each map) the map 
number, the dimensions of the map, scale factors for the 
map variables, formats for reading the map data, and the 
map data. DATAIN reads the cards, scales the data, and 
fills the integer and scaled-fraction arrays. DATAIN 
reads map data until a blank card is detected. Therefore 
all the maps can be read by one call to DATAIN. The 
integer array contains the map number, the search index 
for X (initialized to 1), the search index for Y (initialized 
to 1), the number of points per curve, and the number of 
curves defining the map. The scaled-fraction array 
contains the scaled Y values, the scaled X values for all Y 
values, and the scaled Z values for the functions in the 
map. 

FLCOND: Subroutine FLCOND is a scaled-fraction 
Fortran implementation of equations (1) to (6). 
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Figure 11. - Data transfer in subroutine LOOP. 


FLCOND computes ambient pressure and temperature, 
fan inlet total pressure, and fan inlet total temperature 
from input values of altitude, Mach number, and sea- 
level ambient temperature. The inputs to FLCOND are 
altitude (scaled to a maximum of 80 000 ft), Mach 
number (scaled to a maximum of 3.0), and sea-level 
ambient temperature (scaled to a maximum of 1000® R). 
The inlet option integer INLET is input through the INL 
common block. A univariate function routine FUNl is 


called by FLCOND to interpolate tabular data 
representing the functions f\{a), and 

(Mq-I)*-^^. These functions were scaled and fit by 
tabular data because of the excessive computing times 
associated with exponentiation. The tabular data are 
defined by DATA statements in FLCOND. A linear 
approximation to fiia) is used in FLCOND. The outputs 
of FLCOND are ambient pressure (scaled to a maximum 
of 20.psia), ambient temperature (scaled to a maximum 
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of 1000® R), fan inlet total pressure (scaled to a 
maximum of 40 psia) and fan inlet total temperature 
(scaled to a maximum of 1000® R). 

PROCOM: Subroutine PROCOM is a scaled-fraction 
implementation of equations (7) to (11). PROCOM 
computes thermodynamic properties for air and JP-4/air 
mixtures. PROCOM is called for each engine station 
during each pass through the LOOP subroutine. Inputs 
to the subroutine are the gas temperature (scaled to a 
maximum of 5000° R) and the fuel-air ratio (scaled to a 
maximum of 0.08), Curve fits of the tables of reference 
17 are used in PROCOM. The outputs of PROCOM are 
the specific heats Cp and (scaled to a maximum of 0.5 
Btu/lbm °R), the specific heat ratio (scaled to a 
maximum of 2.0), and the specific enthalpy (scaled to a 
maximum of 1500 Btu/lbm). Appendix D contains the 
source listing for the Fortran version of PROCOM. 
Because of the many calls to PROCOM in LOOP, 
PROCOM was coded in assembly language to reduce the 
computing time. 

TRAT: Subroutine TRAT is a scaled-fraction Fortran 
implementation of equations (16), (19), and (25). TRAT 
computes the isentropic temperature rise parameter 
(A7'/7)id for a given pressure ratio and specific heat 
ratio. TRAT is called three times by LOOP (once each 
for the fan inside diameter, the fan outside diameter, and 
the compressor). The inputs to TRAT are an integer 
indicating the component for which the call is being made 
(fan inside diameter = 1, fan outside diameter = 2, 
compressor = 3), the pressure ratio (rescaled to a 
maximum of 15 prior to calling TRAT), and the average 
component specific heat ratio (scaled to a maximum of 
2). TRAT calls FUNl to interpolate tabular data 
representing the function (P/P)(7 -I)/t- 1 for 7=1.35. 
The tabular data are defined by DATA statements in 
TRAT. The integer argument in the calling statement 
specifies which integer array (Nl, N2, or N3) should be 
used in the call to FUNl. This allows the search index to 
be saved for each of the three calls to TRAT. An 
algebraic function of pressure ratio and specific heat 
ratio is used to correct the FUNl output for different 
values of the specific heat ratio. The output of the TRAT 
subroutine is the temperature rise parameter (scaled to a 
maximum of 1.25). 

NOZZL: Subroutine NOZZL is a scaled-fraction 
Fortran implementation of equations (53) to (83). 
NOZZL computes the exhaust nozzle flow rate and gross 
thrust. The required digital coefficients are input through 
the COEF common block. The inputs to NOZZL are the 
scaled values of ambient pressure, nozzle inlet total 
pressure, nozzle inlet total temperature, nozzle throat 
area, and nozzle exit area; the nozzle pressure ratio 
(scaled to a maximum of 1.0); the nozzle flow coefficient 
(scaled to a maximum of 1.0); and the nozzle velocity 
coefficient (scaled to a maximum of 1.0). FUNl is called 


by NOZZL to interpolate tabular data representing the 
functions 

/24(^£/^s). /2s(^£/^8). and /3o(^£/^8)- The tabular 
data are defined by DATA statements in NOZZL. The 
functions / 25 (Mjf) and /26(^jc) ^re represented by 
quadratic functions. The iterative loop associated with 
shocks in the divergent section is replaced by a quadratic 
function of pressure ratio that is biased by a cubic 
function of area ratio. The result, M^, is used to compute 
the nozzle exit velocity. The outputs of NOZZL are the 
nozzle flow rate, the gross thrust, and the pressure-area 
component of gross thrust. 

Function routines. - The function routines are FUNl, 
FUNIL, and FOOR and MAP, MAPL, and MOOR. 

MAP/MAPL/MOOR: Routine MAP is a general- 
purpose, scaled-fraction routine for generating functions 
of two variables. MAP was developed to handle 
functions that cannot be defined by rectilinear arrays. 
That is, each curve Y does not have to extend over the 
entire range of the variable X defining the curves. For 
this reason MAP is used extensively for generating fan 
and compressor performance maps. Because of its 
efficient coding, MAP is also used in the target program 
for generating the turbine maps. MAP performs radial 
interpolation of the map data and saves both X and Y 
search indices prior to returning to the calling program. 
Upon reentering MAP for the same function the search 
begins in the previously determined X and Y intervals, 
thus saving considerable time during relatively steady- 
state operation. MAP is described in more detail in 
reference 20. 

If more than one function of the same two independent 
variables is required, a second entry point to MAP, called 
MAPL, may be used. However, this applies only if 
identical X and Y breakpoints are used. MAPL fetches 
and interpolates table values only. No searching is 
required since the search indices are used from the last 
entry to MAP. 

Subroutine MOOR is called by MAP and is used to 
inform the user (via a line printer or CRT) when a map 
input goes out of range. This is important since MAP 
does not extrapolate. 

The inputs to MAP are an integer array containing the 
map number, the X and Y search indices, the number of 
points per curve, and the number of curves; a scaled- 
fraction array (F) containing the X, Y, Zj, Z 2 , . . ., 
data; and the scaled-fraction input variables. The 
ordering of the data in the F array is handled by the 
DATAIN subroutine. For the case of multiple functions 
of common variables, only one argument (the scaled- 
fraction array) is needed in the second, third, etc., calls. 
That is. 


Z1 =MAP(N1,F1,XIN,YIN) (108) 
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Z2 = MAPL(F1) 


(109) 

Note that MAP and MAPL must be declared as scaled- 
fraction variables in the calling program. 

Appendix D contains source listings for Fortran 
versions of MAP, MAPL, and MOOR. As in the case of 
PROCOM, assembly language versions of these routines 
were used in the target program to reduce the computing 
time. 

Subroutine DATAIN is used in conjunction with MAP 
and MAPL to read unsealed map data and scale factors 
into the target program, to scale the map data, and to 
store the results in the MAPS common block. 

FUNI/FUNIL/FOOR: Routine FUNl is a general- 
purpose, scaled-fraction routine for generating functions 
of a single variable. In the turbofan engine simulation, 
FUNl is used to generate fixed functions that do not 
require user -specified data. The function data are defined 
by DATA statements in the calling routines. FUNl 
performs linear interpolation of the tabular data and 
saves the search index for subsequent calls for the same 
function. 

If more than one function of the same independent 
variable is required, a second entry point to FUNl, called 
FUNIL, may be used. However, this applies only if 
identical breakpoints are used. For multiple functions of 
the same variable the DATA statements must be in the 
following order: X, Yl, Y2, . . ., YN, where the Y’s are 
in the order of the calls to FUNl and FUNIL. 

Subroutine FOOR is called by FUNl and is used to 
inform the user (by line printer or CRT) when a function 
input goes out of range. This is important since FUNl 
does not extrapolate. 

The inputs to FUNl are an integer array containing the 
function number, the search index, and the number of 
points defining the function; a scaled-fraction array 
containing the X data; and the scaled-fraction input 
variable. The proper ordering of the DATA statements in 
the calling program and the coding in FUNl result in 
FUNl using the appropriate Y values in the 

interpolation. For the case of multiple functions of the 
same variable, only one argument (the scaled-fraction 
array) is needed in the second, third, etc., calls. That is, 

Y1=FUN1(N1,X1,XIN) (110) 

Y2 = FUN1L(X1) (111) 

Note that FUNl and FUNIL must be declared as scaled- 
fraction variables in the calling program. 

Appendix D contains source listings of Fortran 

versions of FUNl, FUNIL, and FOOR. Assembly 
language versions of these routines were used in the target 
program to reduce the computing time. 

Program statistics,— Tdihlc VI lists the significant 
statistics for the target program. These statistics include 


the required numbers of analog components, the 
interface requirements, the core storage requirements, 
and the execution times for the various routines that 
make up the dynamic loop. Comparing tables 1(b) and 
VI(a) shows that the analog computing requirements of 
the target program do not tax the capabilities of one EAI 
681 analog console. Tables 1(c) and VI(b) show that the 
ADC and DAC requirements are also satisfied by either 
of the Lewis hybrid systems. The core requirement of the 
basic target program (LOOP plus required subroutines) is 
only about 7.6K words. However, the addition of the 
initialization routine INITAL and the EXECl main 
program and their associated subroutines (DATAIN, 
INFORM, etc.) expands the total target program to 
about 25K words. The total LOOP execution time is 
about 23 milliseconds with assembly language versions of 
PROCOM, MAP/MAPL/MOOR, and FUNI/FUNIL/ 
FOOR used. 


Host Digital Program 

One of the fundamental differences between the 
simulation development process described in this report 
and the process described in reference 14 is the current 
use of a host digital program. This program, written in 
Fortran, is intended to run on a suitable, large-scale 
digital computer (in our case, the IBM 370/3033) and 
performs all the data manipulations and calculations 
(1) that are necessary to translate engine design 
information into a functioning hybrid simulation, and (2) 
that were previously done by hand. 

In addition to performing the required calculations the 
host program incorporates features that can significantly 
reduce simulation development time on the hybrid 
computer. These features include (1) automatic trimming 
of the engine model to match user-supplied design-point 
data, (2) a quantitative evaluation of subsystem models 
relative to user-supplied off-design-point data, and (3) 
computer printouts that provide documentation for the 
hybrid simulation. 

The host digital program is structured in a modular 
fashion to accept user-supplied input data (by means of 
punched cards), to perform the required operations on 
that data, and to output the desired information to the 
user (through computer printouts and punched cards). 
The following sections describe the required input data, 
the organization of the host program, and the individual 
subroutines and function routines that make up the host 
program. 

Input Data 

Figure 12 shows the nature and ordering of the user- 
supplied input data. The first card contains three integers 
in a (1X,8(I1,2X)) format that specify punch options JP, 
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TABLE VI. -TARGET PROGRAM STATISTICS 


(a) Analog Program 


Components 

Number required 

Integrators 

16 

Summers 

19 

Multipliers 

6 

X2 

2 

Dividers 

8 

Potentiometers 

53 

Function relays 

10 

“AND” gates 

4 

BCD counter 

1 

Logic pushbutton 

1 


(b) Interface 


Components 

Number required 

ADC’s 

25 

DAC’s 

21 

Control lines 

2 

Sense lines 

3 (2 if INFORM used) 

General-purpose 

1 (only if INFORM used) 

interrupt 
Real-time clock 

1 


JPD, and JPA. JP = 1 will cause all the previously 
described output data cards to be punched. JPD = 1 will 
cause only the performance map data, digital 
coefficients, inlet option, and bleed integers to be 
punched. JPA = 1 will cause only the analog setup data to 
be punched. The second card contains the inlet 
configuration option INLET in a (IX, II) format. 
INLET =1 will cause the military specification inlet 
pressure recovery characteristic to be used in the host 
program calculations. Any other value will result in an 
inlet recovery of 1.0 (no inlet). INLET is transmitted to 
the target program through the punched cards. The third 
card contains two constants A'blwht ^BLWLT ^ 
(3X,2F12.5) format. These constants represent the 
fraction of turbine cooling bleed that performs turbine 
work for the high- and low-pressure turbines, 
respectively. 

The next six sets of cards contain bivariate function 
data related to the engine components' performance. The 
contents and order of the component performance map 
cards are the same as described in the preceding input 
data section under Target Digital Program. The last set 
of map data is followed by a blank card. Following the 
blank card are six cards containing duplicates of the map 
scale factor cards. This repeated input of map scale 
factors is necessary because the scale factors are needed 
to unscale certain map variables in the host program. The 
scale factors, read as part of the map data set, are not 
returned to the MAIN program from the DATAIN 
subroutine. 

Following the component map scale factors are nine 
cards containing scale factors for the key simulation 


(c) Digital program 


Basic software 

Core storage, 
number of words® 

Execution time, 
msec 

LOOP 

1805 

22,5 

FLCOND 

219 

,95 

PROCOM 

M79 (266) 

.28 

TRAT 

263 

.67 

NOZZL 

528 

1.94 

MAP/MAPL 

‘>213 (622) 

0.28/0.08 

MOOR 

t*136 (116) 


FUNI/FUNIL 

bl06 (282) 

0.15/0.06 

POOR 

b]25 (102) 


LINKAGE 

271 


RUN-TIME LIBRARY 

591 


COMMON 

3007 


ZONED 

120 


Total 

•>7563 (8202) 



INFORM-related 

Core storage. 

software 

number of words 

EXECl 

629 

INITAL 

1368 

INFORM 

6710 

DATAIN 

941 

BTASK 

823 

LEVELO 

2 

LEVEL8 

36 

MOOR<^ 

^^272 (232) 

FOORc 

^250 (204) 

LINKAGE^ 

981 

RUN-TIME LIBRARY^ 

5142 

ZEROO" 

89 

Total 

‘>17 243 (17 154) 

Grand total 

*>24 882 (25 432) 


^16-Bit word, 

^Assembly-language version used for test case; number in parentheses denotes 
number of words in Fortran version. 

^Additional loads required by INFORM. 

variables. Table VII lists the variables (in order) that 
require user -supplied scale factors. The scale factor data 
are read in a 5(F12,5) format. 

Following the scale factor data is a card containing two 
integers, NDRY and NAUG, in a (1X,2(I2,2X)) format. 
These integers specify the number of nonaugmented (dry) 
and augmented operating points to be input to the host 
program by the user. That is, a total of NDRY + NAUG 
sets of engine cycle data (pressures, temperatures, etc.) 
are input by the user. By definition, the first operating 
point read in is the dry “design” point. It would usually 
be the maximum nonaugmented thrust condition. The 
NDRY + 1 point is assumed to be the augmented design 
point and would usually be the maximum thrust 
condition. 
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Figure 12. - User-supplied host program input data. 


Following the NDRY,NAUG specification card are 
cards containing the dry design-point data. The first card 
contains a power lever angle (PLA) indicator or label in a 
(9X,I3) format. The following nine cards contain, in a 
(5F12.5) format, steady-state values for the engine 
variables listed (in order) in table VIII. 

Following the dry design-point data are cards 
containing the desired time-scale factor (in a (1X,F5.0) 
format) and engine geometric data. The geometric 
parameters, discussed in the section Engine Dynamics are 
volumes K 13 , K 3 , F 4 , F 4 . 1 , and K 7 , reactances (A/On* 
and (A/Oab^ rotor inertias /// and Ii^. The volumes 
are read in a (6F12.5) format. The reactances and inertias 
are read in a (4F12.5) format. 

Following the geometric data are cards containing the 
user-assigned analog potentiometer and integrator 


addresses. The analog component addresses would be 
selected by the user from the available complement of 
analog equipment. A total of 53 potentiometers and 16 
integrators must be selected and patched in the prescribed 
manner (table III and appendix C). The 53 potentiometer 
addresses are read in a (1X,8(A4,1X)) format. The 16 
integrator addresses are read in an (814) format. The 
analog component addresses are subsequently 
transmitted to the target program along with the 
potentiometer settings and integrator gain integers 
computed by the host program. 

Following the analog component addresses are cards 
containing additional dry and augmented operating-point 
data. As previously stated, the NDRY + 1 point is 
assumed to be the augmented design point. Note that 
each set of operating-point data is preceded by a PLA 
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TABLE VII. -SIMULATION VARIABLES 
REQUIRING USER-SUPPLIED 
SCALE FACTORS 


Order of input 
of scale factor 

Variable 

1 

Po 

2 

Pi 

3 

Pn 

4 

Pi.i 

5 

Pi 

6 

P 4 

7 

P 4.1 

8 

Ps 

9 

Pi 

10 

Pi 

11 

Ti 

12 

Tn 

13 

T 1.1 

14 

Ti 

15 

T 4 

16 

T 4.1 

17 

Ti 

18 

Ti 

19 

W2 

20 

<V|3 

21 

<^2.2 

22 

fl-3 


Order of input 
of scale factor 

Variable 

23 

H^4 

24 

W 4.1 

25 

^6 

26 

VV 7 

27 

A/zht 

28 

AAlt 

29 

Fn 

30 

Nl 

31 

Nh 

32 

^F,4 

33 

Wpj 

34 

^8 

35 


36 

a 

37 

Mo 

38 

CIVV* 

39 

CIVVb 

40 

RCVVa 

41 

RCVVb 

42 


43 

To 

44 

Fm 


®Scalc factor is bias to be subtracted from variable, 

^Scale factor is scale factor on biased variable. 

indicator card. Reference 15 contains listings of user- 
supplied input data for the turbofan engine test case. 

Organization 

Figure 13 shows the modular structure of the host 
digital program. The program flow is controlled by the 
MAIN program. The MAIN program and subroutines 
called by MAIN are used to read the input data cards. 
The subroutines and function routines operate on the 
input data and output to the user the information needed 
for setup of the target program on the hybrid computer. 
The following sections describe the various host program 
routines. A flow chart of the host program and source 
listings of the host program routines are provided in 
appendix E. 

MAIN Program 

The principal function of the MAIN program is to 
control the flow of the host program through calls to 
subroutines MAPIN, PRINT, DCOEF, ENGINE, and 
ANALOG. These subroutines perform the bulk of the 
data input and output, the data manipulation, and the 
calculations. The MAIN program also does a limited 
amount of data input and output and scaling. 


TABLE VIII. -SIMULATION VARIABLES 
REQUIRING USER-SUPPLIED 
STEADY-STATE DESIGN AND 
OFF-DESIGN VALUES 


Order of input 
of scale factor 

Variable 

1 

Po 

2 

Pi 

3 

Pm 

4 

P 1.1 

5 

Pi 

6 

P 4 

7 

P4A 

8 

Pi 

9 

Pi 

10 

Pi 

11 

Fun 

12 

Ti 

13 

Tn 

14 

7-2.2 

15 

7-3 

16 

7-4 

17 

7-4.1 

18 

7-6 

19 

7-7 

20 

<1-2 

21 

<^13 

22 

<^2.2 

23 

<V3 


Order of input 
of scale factor 

Variable 

24 

1^4 

25 

^ 4.1 

26 

1^6 

27 

VV7 

28 

A/zht 

29 

A/Ilt 

30 

vb 

31 

Vab 

32 

F„ 

33 

Nl 

34 

Nh 

35 

<*'f.4 

36 

^F.l 

37 

^8 

38 

^8 

39 

a 

40 

Mo 

41 

^d.N 

42 

^v.N 

43 

CIVV 

44 

RCVV 

45 

Fn 


The punch options, inlet option, and bleed work 
coefficients are read by the MAIN program and stored in 
common blocks IVARS and INL. 

The MAIN program calls subroutine MAPIN to 
accomplish the reading in and scaling of the component 
performance map data. The resulting integer and scaled- 
function data arrays are stored in the NMAPS common 
block. Computer printouts of unsealed map data are 
generated for each map. The call to MAPIN also 
produces values for some of the digital coefficients. They 
are stored in the AVARS common block. MAPIN also 
reads in the map scale factor data and stores them in the 
AVARS common block. The MAIN program then reads 
in the NDRY and NAUG integer data. These integers are 
used to control a DO loop in which the user-supplied 
operating-point data are read in and used. After each set 
of operating-point data is read in, a call to subroutine 
PRINT is made to obtain a computer printout of the 
operating-point data. 

For each operating point the MAIN program computes 
values of the compressor discharge bleed flows wblht» 
^BLLT» ^BLOV required to match the user-supplied 
cycle data. If nonpositive bleed values are computed at 
the dry design point (IF= 1), zero bleed will be assumed 
at all operating points and the corresponding bleed 
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Figure 13. - Organization of host digital program. 


integers (KBH, KBL, and KBV) will be set to zero. The 
computed bleed flows are scaled in the MAIN program 
by using scale factors that are fixed proportions of the 
compressor flow scale factor. 



(110) 


(111) 

^^l^BLOV “ ^'002 SFvv2 2 

(112) 


Each set of user-supplied operating point data is scaled 
by the MAIN program from the user-supplied scale 
factors read in by MAPIN and stored in the SVARS 
common block. 

After the input and scaling of the IP = 1 and 
IP = NDRY + 1 design-point data, the MAIN program 
calls subroutine DCOEF to compute additional digital 
coefficients, correction (trim) factors, and corrected 
(trimmed) digital coefficients. The correction factors, 
CC(i), uncorrected digital coefficients, UDC(i), and 
corrected digital coefficients DC(i) are stored in the 
AVARS common block. 

For each operating point the MAIN program calls 
subroutines ENGINE, ANALOG, and PRINT. 
Subroutine ENGINE uses the corrected digital 
coefficients and floating-point Fortran versions of the 
scaled equations in the target subroutine LOOP to 
compute scaled values of the engine state variable 


derivatives. At the IP = 1 point the corrected digital 
coefficients will produce (essentially) zero derivatives and 
hence an equilibrium condition at the user-specified 
operating point. However, at the other operating points 
no such guarantee of a balanced condition exists. 
Therefore calculations are performed in ENGINE for 
each operating point to obtain ratios of individual 
component model outputs to the output values required 
to achieve the desired equilibrium condition. Nonunity 
values for these ratios indicate the need for modifications 
to the models to match the operating-point data. The 
model evaluation ratios are stored in the RVARS 
common block. 

The IP = 1 call to ANALOG causes time scale factor, 
geometric, and analog component address data to be read 
into the host program. Potentiometer settings and 
integrator gains are calculated in ANALOG. For IP = 1 
the call to ANALOG produces model evaluation ratios 
DP6R and DP13R that indicate how well the augmentor 
and bypass duct models (implemented on the analog in 
the target program) match the user-supplied cycle data. 
These ratios are also stored in the RVARS common 
block. After the calls to ANALOG, calls to PRINT result 
in computer printouts of all scaled and unsealed 
simulation variables, including such thermodynamic 
parameters are specific heat ratios and enthalpies. The 
scaled variables are stored in the XVARS common block. 

After all the operating points have been treated in the 
host program, the MAIN program calls subroutines 
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ANALOG and PRINT to produce printouts of analog 
information (potentiometer settings, integrator gains, 
etc.) and digital information (digital coefficients, bleed 
integers, etc.) and to punch the desired data on cards (if 
JP, JPD, or JPA equals 1). The final call to PRINT also 
produces printouts of the model evaluation ratios. 

Subroutines 

M/IP/A* - The MAPIN subroutine performs two main 
functions. The first is to control the reading in of 
component performance map data through a call to the 
DATAIN subroutine. The second is to read in user- 
supplied scale factors and to compute those digital 
coefficients that are functions of the scale factors. The 
integer and scaled-map data arrays are filled by DATAIN 
and stored in the NMAPS common block. The scale 
factors are stored in the SVARS common block. The 
computed digital coefficients are stored in the AVARS 
common block. 

DCOEF, - The DCOEF subroutine is used to compute 
digital coefficients and correction factors from design- 
point data. DCOEF is called by MAIN for the IP = 1 and 
IP = NDRY + 1 operating points only. At the IP = 1 point 
the digital coefficients are computed from the input 
values of pressures, temperatures, flow rates, etc., and 
the scale factors. The correction factors are then 
determined and applied to the uncorrected digital 
coefficients. The corrections are intended to compensate 
for interpolation errors, etc., and will produce 
(essentially) zero derivatives at the IP = 1 design point. At 
the IP = NDRY + 1 point, additional coefficients and 
correction factors are computed such that a balanced 
condition exists in the augmentor at the maximum thrust 
point. To do this, DCOEF uses scaled, floating-point 
Fortran code that is equivalent to the code in the 
ENGINE subroutine. The uncorrected digital coefficients 
and correction factors are stored in the AVARS common 
block along with the corrected digital coefficients. 

ENGINE. — The ENGINE subroutine represents a 
scaled, floating-point Fortran equivalent to the scaled- 
fraction Fortran subroutine LOOP in the target program. 
The scaled equations that describe the turbofan engine 
model are solved in ENGINE by using the corrected 
digital coefficients determined in MAPIN and DCOEF. 

ENGINE is called once for each user-specified 
operating point, IP= 1, 2, . . ., NDRY-hNAUG. Scaled 
values of the engine pressures, temperatures, duct flow 
rates, rotor speeds, and controlled inputs (fuel flows, 
nozzle areas, etc.) represent ADC inputs to the LOOP 
subroutine in the target program. The scaled derivatives, 
computed in ENGINE, represent variables to be output 
by LOOP through the DAC’s. It should be emphasized 
that no numerical integrations are performed in the host 
program. This is analogous to holding the target 
program’s analog integrators in their initial condition 


(IC) mode. Nonzero derivatives, computed in ENGINE, 
indicate a nonequilibrium condition that would, if not 
corrected by model changes, result in a different steady- 
state operating point than the one specified by the user. 
To aid the user in evaluating the off-design performance 
of the model and determining what (if any) changes need 
to be made to the model, ENGINE computes individual 
model evaluation ratios at each operating point. The 
model evaluation ratios represent multipliers that, if 
applied to the corresponding model’s output, will 
produce the desired equilibrium condition. By analyzing 
the evaluation ratios over an operating line, correlations 
with engine parameters can be developed, incorporated 
into the model, and reevaluated prior to going to the 
hybrid. The model evaluation ratios are stored in the 
RVARS common block. The XVARS common block is 
used to store all the scaled variables computed in 
ENGINE. 

ANALOG. - The ANALOG subroutine is used by the 
host program (1) to read in engine geometric data and 
analog component addresses, (2) to compute analog 
potentiometer settings and integrator gain integers at the 
dry design point, (3) to compute bypass and augmentor 
duct model evaluation ratios at all operating points, and 
(4) to generate computer printouts of all pertinent analog 
setup information. 

The functions to be performed by ANALOG are 
governed by the value of the calling argument APRINT 
and the operating-point index IP (input through the 
IVARS common block). APRINT is set to zero in MAIN 
prior to the call for each operating point. For 
APRINT = 0 and IP=1, ANALOG reads user-supplied 
values of the time scale factor, engine geometric 
parameters, potentiometer addresses, and integrator 
addresses. ANALOG then calls subroutines VOLUME, 
SPOOL, and DUCT to compute the potentiometer 
settings and the integrator gain integers for each element 
in the engine model. Each gain integer represents the 
power-of-10 gain required for the integrator(s) associated 
with the particular element. The VOLUME subroutine 
also computes the stored mass value and the stored mass 
scale factor for each intercomponent volume in the 
model. Although DUCT is called for each operating 
point, the potentiometer settings and integrator gain 
integers associated with each duct are not updated for 
IP = 1 . For these points the computed values of the 
feedback potentiometers (PVAL(4) in fig. 6) are ratioed 
to the IP = 1 values. The ratios DP13R and DP6R 
indicate how well the duct model matches the off-design- 
point data. ANALOG also computes potentiometer 
settings corresponding to simulation input variables (fuel 
flows, etc.) at the dry design point. 

After the ENGINE, ANALOG, and PRINT calls for 
the IP = NDRY + NAUG point, a final call to ANALOG 
is made with APRINT =1. At this time computer 
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printouts of al the pertinent analog setup data are 
generated. The ANVARS common block is used to store 
the analog data. The computed duct model evaluation 
ratios are stored in the RVARS common block. 

PRINT, “Subroutine PRINT is a multipurpose output 
routine that performs one of three functions, depending 
on the value of the calling argument IPRINT. IPRINT is 
initialized to zero in MAIN and is incremented in PRINT 
just after each call. For the first call PRINT merely lists 
the user-supplied operating-point data. For the second 
call PRINT lists all the scaled variables computed in 
ENGINE. PRINT proceeds to unscale selected variables 
by using scale factors stored in the SVARS common 
block. The unsealed variables are then listed. For the 
third call to PRINT digital coefficients (uncorrected and 
corrected) and correction factors are printed out. The 
coefficients are tested to ensure that they are less than 
1.0. If they exceed 1.0, they are flagged’'in the printout to 
indicate the need for rescaling of variables. Digital and 
analog setup data are punched on cards according to the 
selected punch options (JP, JPD, and JPA). All the 
model evaluation ratios are printed out after the third call 
to PRINT. 

VOLUME, —Tht VOLUME subroutine is called by 
ANALOG for each intercomponent volume in the engine 
model. The subroutine calculates potentiometer settings 
and integrator gain integers based on user-supplied 
design-point data, scale factors, and geometric 
parameters. The inputs to the subroutine are the unsealed 
pressure and temperature in the volume, the volume, the 
time scale factor, and the scale factors for the flow rate 
through the volume and for the pressure and the 
temperature. The outputs of the subroutine are an array 
of five potentiometer settings, a gain integer representing 
the required integrator gain, the unsealed stored mass in 
the volume, and the stored mass scale factor as 
determined by VOLUME. Logic is included in the 
subroutine to determine the stored mass scale factor that 
will result in a scaled value between 0.5 and 0.8 at the 
design point. Also, logic is included to ensure that the 
computed potentiometer settings are less than 1.0. 

SPOOL, - The SPOOL subroutine is called by 
ANALOG for each of the two spools in the engine 
model. The subroutine calculates potentiometer settings 
and an integrator gain integer based on user-supplied 
design-point data, scale factors, and geometric 
parameters. The inputs to the subroutine are the unsealed 
rotor speed, the rotor inertia, the time scale factor, and 
the scale factors for rotor speed, turbine enthalpy drop, 
and turbine flow rate. The outputs of the subroutine are 
an array of two potentiometer settings and an integrator 
gain integer. As in the case of VOLUME, logic is 
included to ensure that the potentiometer settings are less 
than 1.0. 

DUCT, - Subroutine DUCT is called by ANALOG for 
each of the two ducts in the engine model. The subroutine 


calculates potentiometer settings and an integrator gain 
integer based on user-supplied design-point data, scale 
factors, and geometric parameters. The inputs to the 
subroutine are the unsealed values of inlet pressure, exit 
pressure, inlet temperature, and flow rate; the duct A/l\ 
the inlet volume (includes one-half of the duct volume); 
the time scale factor; and scale factors for inlet pressure, 
exit pressure, inlet temperature, and flow rate. The 
outputs of the subroutine are the array of four 
potentiometer settings and an integrator gain integer. As 
in the case of VOLUME, logic is included to ensure that 
the potentiometer settings are less than 1.0. 

D/1T4/A. -DATAIN is a floating-point Fortran 
version of the scaled-fraction Fortran subroutine in the 
target program. In the host program, DATAIN is called 
by MAPIN to read component performance map data 
from user-supplied cards. DATAIN scales the map data 
and fills the appropriate integer and scaled-data arrays. 
The host program version of DATAIN contains a 
provision for punching unsealed map data cards for input 
to the target program. The map data are punched if the 
punch options JP = 1 or JPD= 1 are selected by the user. 

FLCOND, - FLCOND is a floating-point Fortran 
version of the scaled-fraction version in the target 
program. In the host program, FLCOND is called by 
ENGINE and DCOEF to compute the scaled values of 
the ambient pressure and fan inlet total pressure and 
temperature from specified scaled values of altitude, 
Mach number, and sea-level ambient temperature. 

PROCOM, - PROCOM is a floating-point Fortran 
version of the scaled-fraction version in the target 
program. In the host program, PROCOM is called by 
ENGINE and DCOEF to compute scaled values of 
JP-4/air thermodynamic properties based on specified 
scaled values of temperature and fuel-air ratio. The 
thermodynamic properties are the specific heats Cp and 
Cy, the specific heat ratio, and the specific enthalpy. 

TRAT, -TRAT is a floating-point Fortran version of 
the scaled-fraction version in the target program. In the 
host program, TRAT is called by ENGINE and DCOEF 
to compute the scaled isentropic temperature rise 
parameter {AT/T)\^ based on specified scaled values of 
pressure ratio and specific heat ratio. 

AOZZL. -NOZZL is a floating-point Fortran version 
of the scaled-fraction version in the target program. In 
the host program, NOZZL is called by ENGINE and 
DCOEF to compute the scaled values of nozzle flow rate 
and nozzle gross thrust based on specified scaled values 
of ambient pressure, nozzle inlet pressure and 
temperature, nozzle throat area, nozzle exit area, flow 
coefficient, and velocity coefficient. 

Function Routines 

MAP IMAPLI MOOR, - Function routine MAP is a 
floating-point Fortran version of the scaled-fraction 
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assembly language version in the target program. In the 
host program, MAP is called by ENGINE and DCOEF 
to interpolate tables of scaled, bivariate function data 
based on specified scaled values of the independent 
variables. As in the case of the target program a second 
entry point (MAPL) is used when multiple functions of 
the same independent variables are to be generated. 
Subroutine MOOR is called by MAP to flag out-of-range 
inputs to MAP. 

FUNl/FUNlL/FOOR.-VmQiion routine FUNl is a 
floating-point Fortran version of the scaled-fraction 
assembly language version in the target program. In the 
host program, FUNl is called by ENGINE, DCOEF, 
FLCOND, TRAT, and NOZZL to interpolate tables of 
univariate function data based on specified scaled values 
of the independent variable. In general, FUNl is used in 
the host program to generate fixed functions (defined by 
DATA statements in the calling subroutines). As in the 
case of the target program, a second entry point (FUNIL) 
is used when multiple functions of the same Independent 
variable are to be generated. Subroutine FOOR is called 
by FUNl to flag out-of-range inputs to FUNl. 

Program Statistics 

Table IX lists the core storage requirements for the 
host program. Approximately 24K words are required. 

Turbofan Engine Test Case 

To demonstrate the computer-aided simulation 
development process, a test case was run. The test case 
involved simulating an engine in the 111.1-kilonewton 
(25 000-lbO thrust class operating at sea-level, static 
conditions from idle to maximum thrust. The following 
section describes the test case engine. 

Engine Description 

The test case engine is an augmented turbofan engine, 
as illustrated in figure 3. The engine is assumed to have 
the standard inlet pressure recovery as defined by 
equation (3). The turbine cooling bleeds are configured in 
such a way as to have bleed work coefficients A'blwht 
and A'blwlt of 0.63412 and 0.17058, respectively. 
Table X lists these and other salient parameters for the 
test case engine. 

The test case engine is assumed to have variable fan 
inlet guide vanes (CIVV) and variable compressor stator 
vanes (RCVV). Figures 14 and 15 show the effects of 
variable vanes on the steady-state performance of the fan 
and compressor, respectively. Figure 14 corresponds to 
the function /g in the engine model and to map 1 in the 
host and target programs. Figure 15 corresponds to the 
function fn and to map 2. Figures 16 to 19 show the 
steady-state performance characteristics of the fan. 


TABLE IX. -HOST 
PROGRAM STATISTICS 


Software 

Core storage/ 
number of words 

MAIN 

1088 

MAPIN 

1242 

DCOEF 

1628 

ENGINE 

1463 

ANALOG 

1581 

PRINT 

6802 

VOLUME 

249 

SPOOL 

157 

DUCT 

258 

DATAIN 

1672 

FLCOND 

234 

PROCOM 

205 

TRAT 

246 

NOZZL 

471 

MAP 

292 

MAPL 

73 

MOOR 

136 

FUNl 

158 

FUNIL 

71 

FOOR 

108 

COMMON 

5662 

Total 

23 796 


®32-Bil words. 


TABLE X.- TEST-CASE ENGINE PARAMETERS 


^BLWHT 0.63412 

^BLWLT 0.17058 

0.0467 m3 (2850 in.3) 

P 4 0.0467 m3 (2850 in.3) 

K 4.1 0.6555 m3 (40 000 in.3) 

^6 0.8473 m3 (51 705 in.3) 

V-! 0.7046 m3 (43 000 in.3) 

Vn 1.426 m3 (87 050 in.3) 

{A/!)d 13. 15 cm (5.1778 in.) 

(>1//)ab 13.15 cm (5.1778 in.) 

in 515.2 N cm sec2(45.61bf in. sec^) 

II 610.1 N cm sec^(54.01bf in. sec^) 


compressor, high-pressure turbine, and low-pressure 
turbine, respectively. Figures 16 and 17 represent the 
nominal fan and compressor performance with scheduled 
vane angles (outputs of maps 1 and 2 equal to zero). 
Figures 16(a) to (d) correspond to functions fe>fiyf 9 t and 
/lO and to map 3. Figures 17(a) and (b) correspond to 
functions f\\ and /13 and to map 4. For the turbines 
figures 18(a) and (b) correspond to functions /14 and /15 
and to map 5; figures 19(a) and (b) correspond to 
functions fi^ and /n and to map 6. Note that the 
component performance maps are normalized. That is, 
the map variables are expressed as “fractions of design.” 
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Fan tip pressure ratio, fraction of design 

(c) Fan hub pressure ratio. (d) Fan hub efficiency. 

Figure 16. - Fan performance maps with Inlet guide vanes at their nominally scheduled position - test case engine. 


The component design points are assumed to match the 
engine dry design point. 

Table VIII lists the user -supplied engine variables that 
define the steady-state performance of the engine. Values 
of these variables were input to the host program for the 
design and off-design points. The design point in this case 
was the maximum nonaugmented thrust point at the sea- 
level, static, standard-day condition. All the relevant 
design- and off-design-point data for the test case engine 
are contained in reference 15. 

Hybrid Computer Specification 

Having defined the engine geometry and steady-state 
performance, the user must specify scale factors and 
analog component addresses. The scale factors are used 
by the host program to calculate digital coefficients. 


analog potentiometer settings, and integrator gains. The 
scaling of simulation variables, although not mandatory 
for the host program, is needed for the target program to 
permit the use of scaled-fraction software in the digital 
and to limit analog variables to dbl computer unit 
(zb 10 V on the EAI 681). On the basis of the expected 
range of variables, the scale factors listed in table XI were 
chosen for the test case. The time scale factor, which is 
directly related to the integrator gains, was set to 50 (i.e., 
50 times slower than real time) to ensure stable operation. 
The effect of the time scale factor on the stability of the 
test case simulation is discussed in the section Results and 
Discussion. 

The specification of analog component addresses by 
the user permits the host program to generate data that 
can be used to either automatically set up or instruct the 
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Compressor corrected speed, 



(b) Compressor efficiency. 

Figure 17. - Compressor performance map with stator vanes at their 
nominally scheduled position - test case engine. 


user to set up the analog computer. Table XII lists the 
analog components that were patched according to the 
guidelines provided in table III and appendix C. 

Host Program Input Data 

The ordering of the user-supplied input data is shown 
in figure 12. Reference 15 contains a listing of the input 
data for the test case. The first card contained the punch 
options JP = 1, JPD = 1, and JPA=1. This caused the 
host program to punch all the host program output data. 
The second card contained the inlet option INLET = 1 . 
The third card contained the bleed work coefficients 
^BLWHT = 0-63412 and A'bl^lt = 0.17058. 

Following the bleed work coefficient data were the 
cards defining the test case engine component 
performance maps. Numerical data corresponding to the 
maps shown in figures 14 to 19 were read in along with 
information pertaining to map dimensions, data formats, 
and scale factors. The section Host Digital Program 
contains detailed descriptions of the map data cards. A 


High-pressure-turbine 
corrected speed. 



(b) Enthalpy parameter. 

Figure 18. - High-pressure-turbine performance maps - tests case 
engine. 

blank card followed the map 6 data. This was followed 
by cards containing the scale factors for the input and 
output variables for maps 1 to 6. 

Following the map scale factors were cards containing 
user-defined scale factors for the engine variables that are 
listed in table VII. Table XI lists the engine variables and 
the corresponding scale factors. 

Following the scale factor data was the card containing 
the integers NDRY and NAUG. For the test case six dry 
operating points and four augmented operating points 
were input to the host program. These points covered the 
sea-level, static, standard-day operating line from idle to 
maximum thrust. The dry design-point (PLA = 83) data 
followed the specification of NDRY and NAUG. These 
data were followed by the specification of the time scale 
factor. For the test case a scale factor of 50 was selected. 
Following the time scale factor were cards containing the 
engine geometric data corresponding to table X. These 
data were followed by user-specified analog 
potentiometer and integrator addresses. Table XII lists 
the component addresses selected for the test case. 
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Low-pressure-turbine 
corrected speed, 
fraction of design 




(b) Enthalpy parameter. 

Figure 19. - Low-pressure-turbine performance maps - test case 
engine. 


Following the component addresses were cards defining 
the remaining NDRY -hNAUG- 1 operating points. 

Host Program Output Data 

The ordering of the host-program-generated output 
data cards is shown in figure 8. Reference 15 contains a 
listing of the host program output data for the test case. 
The first six sets of data were reproductions of the 
component performance map data cards that were input 
to the host program. A blank card was generated by the 
host program after the last card for map 6. Following the 
map data cards were cards containing the 125 corrected 
digital coefficients. These were followed by a card 
containing the inlet option integer INLET and the bleed 
integers KBH, KBL, and KVB. For the test case, all four 
integers were set to 1 by the host program. That is, the 
standard inlet recovery was to be used in the target 
program and positive bleeds were needed at the dry 
design point to match the user-supplied steady-state data. 
Following the inlet and bleed integers were cards 


TABLE XI. - SCALE FACTORS FOR TEST CASE 


Variable, 

X 

Scale factor, 
S?, 

Po 

20 psia/c.u.® 

Pi 

40 psia/ 

Pn 

100 psia/ 

Pl.2 

100 psia/ 

P} 

600 psia/ 

P* 

600 psia/ 

Paa 

150 psia/ 

Pi 

100 psia/ 

Pi 

100 psia/ 

Pi 

100 psia/ 

Ti 

1000“ R/c.u. 

7-13 

1500“ R/ 

Ti.2 

1500" R/ 

Ti 

2000“ R/ 

Ta 

4000“ R/ 

Taa 

3000“ R/ 

n 

2000“ R/ 

Ti 

5000“ R/ 

W2 

450 Ibm/sec-c.u. 

<V,3 

250 Ibm/sec 

W2.1 

225 Ibm/sec 

VVj 

200 Ibm/sec 


Variable, 

X 

Scale factor, 
SF, 

1V4 

200 Ibm/sec-c.u. 

^4.1 

200 Ibm/sec 

^6 

450 Ibm/sec 

1^7 

450 Ibm/sec 

AA4 

300 Btu/lbm-c.u. 

A/14.1 

200 Btu/lbm 

Pn 

50 000 Ibf/c.u. 

Nl 

15 000 rpm/c.u. 

Nh 

15 000 rpm/ 

^F.A 

4.5833 Ibm/sec-c.u. 

^F.l 

20 Ibm/sec 


1000 in.2/c.u. 

Ae 

2000 in .2/ 

a 

80 000 ft/c.u. 

A/o 

3 C.U.-J 

CIVVb 

0 deg 

CIVV>> 

25 deg/c.u. 

RCVV' 

4 deg 

RCVVb 

44 deg/c.u. 

Ve 

5000 in./sec-c.u. 

T'o 

1000“ R/c.u. 

Pn 

50 000 Ibf/c.u. 


*c.u. denotes computer unit. 

I’Scate factor is bias subtracted from variable. 

^Scale factor is applied to biased variable. 

containing the analog integrator addresses and gain 
integers. This information was used in the target 
program’s subroutine INITAL to set (or instruct the user 
to set) the proper integrator gains. The gain integers 
indicated that gains of 1 were to be set for integrators 00, 
02, 15, 17, 30, and 35; gains of 10 for integrators 05, 07, 
10, 12, 20, 22, 25, 27, and 95; and a gain of 100 for 
integrator 90. Following the integrator data were cards 
containing initial condition values for the 21 DAC’s 
being used. The last set of cards contained potentiometer 
addresses and settings for the 53 potentiometers being 
used. This information was also used by subroutine 
INITAL to automatically set the potentiometers. 

Reference 15 contains a complete printout from the 
execution of the host program for the test case. In 
addition to listing the input and output data, the host 
program printed out scaled and unsealed values of 
calculated engine variables at each operating point. At 
the dry design point, small (~ 10-6) values of the scaled 
derivatives (DAC outputs) were observed. This was 
caused by the trim procedure in the DCOEF subroutine. 
Larger values did result at off-design points 
(DXNH = 0.93447x10-3 at PLA = 20, e.g.) and indi- 
cated the need for modifications to the engine model to 
match specified operating data when the loops are closed 
through the analog integrators. 
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TABLE XII. - ANALOG COMPONENT SELECTION FOR TEST CASE 


Model 

input 

Potentiometer 

address 

index, 

k 


■W/T4 

43 

P081 

WFJ 

44 

P087 

^8 

45 

P085 


46 

P086 

CIVVa 

47 

P038 

RCVV« 

48 

P080 

ALT 

49 

P031 

Mq 

50 

P033 

^am 

51 

P036 


Model 

element 

Potentiometer 

address 

index, 

k 

Potentiometer 

address 

Integrator 

address 

index, 

k 

Integrator 

address 

yi3 

1 

POOO 

1 

00 


2 

pool 

2 

02 


3 

P002 




4 

P003 




5 

P004 




6 

P005 

3 

05 


7 

P006 

4 

07 


8 

P007 




9 

POOS 




10 

P009 




11 

POlO 

5 

10 


12 

poll 

6 

12 


13 

P012 




14 

P013 




15 

P014 



y^A 

16 

P015 

7 

15 


17 

P016 

8 

17 


18 

P017 




19 

P018 




20 

P019 



ye 

21 

P020 

9 

20 


22 

P021 

10 

22 


23 

P022 




24 

P023 




25 

P024 



yi 

26 

P025 

11 

25 


27 

P026 

12 

27 


28 

P027 




29 

P028 




30 

P029 



IH 

31 

P032 

13 

30 


32 

P030 



II 

33 

P037 

14 

35 


34 

P035 



(A/Dd 

35 

P090 

15 

90 


36 

P091 




37 

P092 




38 

P093 




39 

P095 



(A//)aB 

40 

P096 




41 

P097 




42 

P098 




Model 

output 

bias 

Potentiometer 

address 

index, 

X 

Potentiometer 

address 

Pu/Pl 

P3/P2.2 

52 

53 

PlOO 

PlOl 


After the printout of the DAC initial conditions the 
host-program-determined values of the stored mass scale 
factors (and corresponding scaled and unsealed values of 
the stored masses) were listed. 

In addition to printing out the corrected digital 
coefficients, the host program also printed out the 
uncorrected digital coefficients and correction factors. 
Digital coefficients that were zero (such as unused 
coefficients) or that equaled or exceeded unity were 
flagged to aid the user in detecting situations that might 
require rescaling of the simulation or redefinition of 
coefficients. 


Finally the host program printed out tables of the 
model evaluation ratios for each operating point. As 
expected, the ratios were equal to 1.0 at the dry design 
point. Nonunity values at other operating points 
indicated the need for modifying the individual 
component models to produce zero derivatives at the off- 
design points. Subsequently, modifications were made to 
various subsystem models. In particular, the bleed flow, 
augmentor efficiency, nozzle flow, and gross thrust 
models were adjusted to achieve near-unity values for 
CBLHR(k), ETAABR(k), WG7R(k), and FGR(k), 
respectively. Nonunity values for other ratios such as 
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PO 

P2 


P13 

P22 

P3 

P4 

P41 


P5 

P6 

P7 

TAM 

T2 


T13 

T22 

T3 

T4 

T41 


T6 

T7 

WA2 

m\3 

MA22 


WA3 

14G4 

UG41 

14G6 

WG7 


DH4 

DH41 

ETAB 

ETAAB 

FNET 


XNL 

XNH 

WF4 

\JF7 

A8 


PE 

ALT 

XMN 

CON 

OM 


CIW 

RCW 

FG 

14693 02 

14629 

02 

19354 02 

21024 02 

10624 03 

10140 03 

29343 

02 

18534 02 

18176 02 

17743 02 

S1868 03 

51846 

03 

57962 03 

58713 03 

10065 04 

17317 04 

12398 

04 

84204 03 

84229 03 

10679 03 

55679 02 

51038 

02 

42511 02 

42926 02 

50720 02 

10703 03 

10706 

03 

11101 03 

31854 02 

99997 00 

58252 00 

23239 

04 

56818 04 

98209 04 

45066 00 

00000 00 

43201 

03 

48499 03 

08000 00 

00000 00 

88507 00 

95322 

00 

-24993 02 

-21839 02 

23239 04 


STEADY-STATE ERROR RATIOS 



.99980 

.99543 

.96923 

.98765 

1.01735 

1.01615 

1.02044 

1.04198 

1.01873 

1.01801 

1.00013 

.99984 

.99298 

.99569 

1.00134 

.99597 

.99600 

.98166 

.98209 

1.07015 

1.13542 

1.00780 

1.01703 

1.01600 

1.01676 

1.06981 

1.06816 

1.^69 

.97728 

.99997 

.98984 

1.11041 

1.06119 

1.00321 

1.00068 

.00000 

.99987 

1.00032 

.00000 

.00000 

1.00029 

.99947 

.99973 

.99997 

1.11553 

Figure 20. - 

Target simulation steady-state results - baseline model; 


point 5 (PLA ■ 24). 


DP13R(k) and DP6R(k) were initially judged to have 
lesser effects on the steady-state accuracy of the 
simulation and were not adjusted. The section Results 
and Discussion treats the impact of this. 


Results and Discussion 

The target simulation was implemented and run on the 
PACER 600 hybrid computer system. The analog portion 
of the simulation was prepatched as shown in appendix 
C, The digital portion of the simulation, consisting of the 
EXECl main program, subroutines including INITAL 
and LOOP, function routines, and library routines, was 
compiled (or assembled) and loaded by using the 
procedures described in reference 20. Execution of the 
INITAL subroutine resulted in the reading in of the host- 
program-generated output data and the setting up and 
initialization of the analog (potentiometers, integrator 
gains, etc.) at the dry design point. 

Stable closed-loop operation of the hybrid simulation 
(analog computer in OPERATE and repetitive operation 
of the LOOP subroutine) was not possible with time scale 
factors much below 50. After some study it was 
concluded that this was due to relatively high loop gains 
in the “hot” sections of the engine model and the 
effective time delays associated with those loops. 
Although it was felt that the time scale factor could 
probably be reduced by modifying the structure of the 


LOOP subroutine (update the high-gain loops more often 
than the others), we decided not to attempt this and, 
rather, to concentrate on demonstrating the basic 
simulation methodology. The host and target programs 
could then be the basis for later work aimed at reducing 
the digital frame time and achieving real-time operation. 


Steady State 

With the simulation inputs (potentiometers) fixed at 
the design-point values, the turbofan engine simulation 
was allowed to run until an equilibrium (steady state) 
condition was reached. The INFORM subroutine was 
then used to obtain a tabular listing of unsealed steady- 
state data. Variables to be displayed and their scale 
factors were defined prior to run time by using the 
procedures described in reference 21. The selected 
variables and the format of the tables were chosen to 
closely match the tables of host program input data 
(ref. 15). Figure 20 shows the steady-state hybrid results 
at the IA = 5 (PLA = 24) point. Reference 15 contains all 
the operating line data. Note that the unsealed data were 
displayed as XXXXX EE, which represents O.XXXXX 
times 10 to the EE power. Also note that steady-state 
error ratios (observed value/desired value) were listed for 
each variable. This provided a convenient comparison 
between hybrid and host program input data. 

At the design point the steady-state errors were 
generally less than 1.0 percent. This was attributed to the 
trim procedure in the host program, which leads to 
extremely small state variable derivatives at the design 
point. As one moved further away from the design point, 
larger errors were observed. At point 5 (PLA = 24) the 
largest error was found to be 13.5 percent in W13 (see 
WA13 in fig. 20). These results were not completely 
unexpected since the host program had produced 
relatively large derivatives at these points along with 
nonunity values for the model evaluation ratios. 
However, the lack of convergence capability in the host 
program made it necessary to run the hybrid to determine 
the actual equilibrium conditions produced by the model. 

The steady-state results, coupled with the model 
evaluation ratios listed in the host program printout, 
indicated that modifications to the basic engine model 
would be needed if the steady-state errors were to be 
reduced to acceptable (3 to 5 percent) levels. In 
particular, the duct models and the turbine enthalpy drop 
parameter maps were identified as possible causes for the 
observed high values of fan speed (and hence flow rates 
and pressures). The model evaluation ratios DP13R, 
DP6R, DH4QR, and DH41TR were used to guide 
modifications to the duct and turbine models. 

The bypass duct loss characteristic (eq. 51)) was 
changed to reflect a linear relationship between the 
pressure drop and the corrected flow. That is, 
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P\(> = Pn- -K^2 (113) 

Figure 21 illustrates the modified implementation of the 
bypass duct model. 

The augmentor duct model was modified primarily to 
reduce the observed steady-state errors at the augmented 
operating points. To do this, the fixed value of 
equation (46) was replaced with a nonlinear function of 
afterburner fuel flow. Figure 22 shows the modified 
implementation of the augmentor duct model. 

In addition to the analog changes, it was determined 
that the steady-state errors could be further reduced by 
employing speed-sensitive shifts of the high- and low- 
pressure-turbine enthalpy drop parameter maps. These 
shifts were accomplished in the LOOP subroutine by the 
following steps: 

(1) Defining and declaring variables for two additional 
table lookups as follows: 

DIMENSION N8(3),N9(3) 

SCALED FRACTION X8(8),Y8(8),X9(8),Y9(8), 
NHSHFT,NLSHFT 

(2) Defining tables of data for the two shift functions 
as follows: 

DATA N8/18,l,8/ 



PVAL (42) CHANGED TO 0.4154, 

FUNCTION DEFINED BY POINTS: X Fm 

0 0,0852 

. 0750 . 1480 

,2200 , 2062 
. 3800 . 2496 

.5250 .2732 

.9999 .3500 



PVAL (38) CHANGED TO 0.0157, 

NEW POTENTIOMETER ADDED - PVAL (54) = 0.0060. 

Figure 21. - Modified analog computation of bypass duct flow rate. 


Figure 22. - Modified analog computation of augmentor duct flow rate. 


DATA X8/.00000S,.61321S,.65269S,.69753S,.74127S, 
.79527S..87567S, .999998/ 

DATA Y8/.99999S,.98860S, .987668, .987668, .993078, 
.996608,.999608,.999998/ 

DATA N9/19,l,8/ 

DATA X9/.000008,.259778,.356838,.470778,.535198, 
.612298,.685808,.999998/ 

DATA Y9/.500008,.509938,.494998,.505578., 494478, 
.497078,.4981 18,.500008/ 


(3) Computing and applying the shift functions as 
follows: 

NH8HFT = FUN1(N8,X8,XNH) 
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WG7 


DH4 
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ETAB 

ETAAB 

FNET 
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WF7 

A8 


A£ 

ALT 

XMN 

CON 

CON 


CIW 

RCUU 

FG 
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14629 

02 

19952 02 

21222 02 

10532 03 

10060 03 

28967 

02 

18274 02 

17822 02 

17426 02 

51874 03 

51859 

03 

58640 03 

58896 03 

10055 04 

17371 04 

12473 

04 

86462 03 

86426 03 

99564 02 

48935 02 

50688 

02 

42041 02 

42554 02 

50293 02 

99783 02 

99838 

02 

11017 03 

32068 02 

99997 00 

58844 00 

20889 

04 

53677 04 

97998 04 

45039 00 

00000 00 

43201 

03 

48511 03 

00000 00 

00000 00 

88480 00 

95367 

00 

-24995 02 

-21844 02 

20889 04 


STEADY-STftTE ERROR RATIOS 



.99980 

.99543 

1.00013 

.99784 

1.00858 

1.00734 

1.00738 

1.02049 

.99788 

1.00049 

1.00001 

.99960 

1.00458 

.99957 

1.00037 

.99920 

1.00203 

1.00785 

1.08770 

.99828 

.99668 

.99913 

1.00579 

1.00690 

1.00808 

.99816 

.99788 

.99566 

.98667 

.99997 

1.00041 

1.00208 

1.00267 

1.00087 

1.00192 

.00000 

1.00030 

1.00032 

.00000 

.00000 

.99998 

.99995 

.99973 

.99997 

1.00208 


Figure 23. - Target simulation steady-state results - modified model; 
point 5(PLA - 24). 


DH4 = (HP4*SSQRT(T4)*XNH*NHSHFT)/DC(87) 


NLSHFT = FUN1(N9,X9,XNL) 

DH41=(HP4rSSQRT(T41)*XNL*NLSHFT)/ 

(.5S*DC(88)) 

After these changes had been made to the target 
program, the simulation was rerun to determine the 
steady-state errors relative to the host program input 
data. Reference 15 contains all the resulting data. Fig- 
ure 23 shows the results at the IP = 5 (PLA = 24) point. In 
general the modified simulation produced steady-state 
errors of less than 2.5 percent over the entire operating 
line. The maximum error in pressures was 2.5 percent (P 5 
at PLA = 20), The maximum error in temperatures was 
0.99 percent {T-j at PLA = 20). The maximum error in 
flows was 0.81 percent (W 4 1 at PLA = 24). The maximum 
error in rotor speeds was 0.30 percent {Ni at PLA = 20). 
This level of accuracy should be acceptable for almost 
any application. 



(a) Combustor fuel flow (full scale, 2. 079 kg/sec). 


I I I I I I i 

(b) Nozzle throat area (full scale. 0. 0164 m^}. 






1 


J ^ L 


I I I 


-40 r- 


(c) Nozzle exit area (full scale, 0. 0328 m^). 


1.2r— 


(d) Fan inlet guide vane angle. 



(k) Low-pressure-turbine inlet temperature (full scale, (I) Net thrust (full scale, 2. 224x10^ N). 

1666. 6 K). 

Figure 24. - Target simulation response to inputs representing throttle slam from idle (PLA - 20) to dry design (PLA ■ 83) power - 
sea-level static, standard-day conditions. 


35 



N^. rpm W 2 V^I 62 CIVV. deg Ag. Wp 4 , kg/sec 
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(e) Compressor stator vane angle. 


li— 


(f) Fraction of design fan corrected airflow. 


J L 


J I I ol 


J ^ ^ L 


(g) Compressor speed (full scale, 15 000 rpm). 


(h) Fan speed (full scale. 15 000 rpm). 


J ^ I 


(i) Fan discharge pressure (full scale. 63.95 Nfcm\ 


J ^ I ^ ^ ^ I ol I I ~~' l -t— I I I 



-10 1 2 3 4 5 6 -1 0 1 2 3 4 5 6 

Time, sec 


(k) Low-pressure-turbine inlet temperature (full scale, 
1666.6 K). 


(I ) Net thrust (full scale, 2.224x1()5n). 


Figure 25. - Target simulation response to inputs representing cyclic throttle movements between dry design (PLA ■ 83) and PLA ■ 40 
power - sea-level, static, standard-day conditions. 






(i) Fan speed (full scale, 15 000 rpm). 


(J) Combustor pressure (full scale, 413. 7 N/cm‘l. 


1 |“ 


J L 


J L 


J I L 


-1 0 12345 67 -1 012345 67 

Time, sec 

(k) Low-pressure-turbine inlet temperature (full scale, 1666. 6 K). 


(1) Net thrust (full scale, i224xl()5N). 


Figure 26. - Target simulation response to Inputs representing throttle slam from Idle (PLA - 20) to maximum augmented (PLA - 130) power - sea- 
level, static, standard-day conditions. 
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Transients 

Although no reference or basis for evaluating the 
transient performance of the simulation was available, it 
was felt that it was important to demonstrate the 
transient operation of the simulation over the entire 
thrust range. To avoid the need for simulating an engine 
controller, it was decided to test the simulation dynamics 
in an “open loop” fashion. That is, time histories of the 
simulation inputs were constructed from representative 
engine data and implemented by using analog function 
generators driven by a ramp signal denoting time. Time 
histories were generated for three typical engine 
transients — an acceleration from idle to dry design 
thrust, a cyclic movement of the throttle, and an 
acceleration from idle to maximum thrust. Figures 24 to 
26 show the simulation responses for these cases. The 
simulation responses were stable and exhibited 
reasonable response times, overshoots, etc. No analog 
component overloads or scaled-fraction overflows were 
observed, an indication that the selected scale factors and 
the organization of the target program computations 
were satisfactory. 


Concluding Remarks 

The value of hybrid computation as a simulation tool 
has been aptly demonstrated in a variety of applications, 


including gas turbine engine controls development. 
Despite the tremendous technological advances in digital 
computation (microprocessors, array processors, etc.) it 
is expected that hybrid computers will continue to play a 
significant role in simulation because of the speed of the 
analog computer and the “hands on” interaction 
available to the user. Still, it is recognized that problems 
exist when developing hybrid computer simulations and 
that these problems, if not solved, can significantly 
reduce the effectiveness of the hybrid approach. In 
particular, programming aids are needed that can make it 
easier to formulate models of dynamic systems; that can 
support the development, implementation, and 
documentation of the simulation; and that can ensure 
acceptable levels of steady-state and dynamic accuracy. 

This report has focused on the gas turbine engine 
simulation problem and has presented a systematic, 
computer-aided, self-documenting methodology for 
developing a hybrid computer simulation of an 
augmented turbofan engine. The proposed simulation 
development process has been exercised, demonstrated, 
and documented for a typical turbofan engine design. 
The results indicate that the process does satisfy most of 
the desired objectives. 

Lewis Research Center 

National Aeronautics and Space Administration 
Cleveland, Ohio, July 14, 1981 
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Appendix A 


Symbols 


A cross-sectional area, cm2 (in2) 

AADR(0 address of ith analog integrator, /= 1 to 16 
a altitude, m (ft) 

Bx bias on variable x, appropriate units 

nozzle flow coefficient 
Cy nozzle velocity coefficient 

CIVV fan variable-geometry parameter, deg 

Cp specific heat at constant pressure, J/kg K 

(Btu/lbm 

Cy specific heat at constant volume, J/kg K 

(Btu/lbm ‘^R) 

DTQWj scaled specific temperature derivative at 
station j 

dt differential time, sec 

dt' scaled differential time, sec 

DWJ^ scaled stored mass derivative at station j 

DXNH scaled high-rotor-speed derivative 

DXNL scaled low-rotor-speed derivative 

F thrust, N (IbO 

FRjj_ function relay having address jj 

fl functional relation, / = 1 to 30 

f/a local fuel-air ratio 

GAIN(0 analog integrator gain for ith model element, 

/=1 to 10 

gc gravitational conversion factor, 

100 cm kg/N sec2 (386.3 Ibm in/lbf sec2) 
H heat, J (Btu) 

HVF heating value of fuel, J/kg (Btu/lbm) 

h specific enthalpy, J/kg (Btu/lbm) 

A/i enthalpy change, J/kg (Btu/lbm) 

hp turbine enthalpy drop parameter, 

J/kg rpm (Btu/lbm “R'/^ rpm) 

/ polar moment of inertia, N cm sec2 

(Ibf in sec2) 

J mechanical equivalent of heat, 100 N cm/J 

(9339.6 Ibf in/Btu) 

^AB augmentor pressure loss coefficient, 

N2 sec2/kg2 cm4 K (lbf2 sec2/lbm2 in4 "R) 
Kq main combustor pressure loss coefficient, 

N2 sec2/kg2 cm4 K (lbf2 sec2/lbm2 in4 ®R) 

^BLWHT fraction of high-pressure-turbine cooling 
bleed doing work 

^BLWLT fraction of low-pressure-turbine cooling 
bleed doing work 


Kd duct pressure loss coefficient, 

N2 sec2/kg2 cm4 k (lbf2 sec2/lbm2 in4 ®R) 

A'di modified duct pressure loss coefficient, 

N2 sec/kg cm4 (Ibf2 sec/lbm in4 ®R'/ 2 ) 

A"d 2 modified duct pressure loss coefficient, 

N/cm2 (psia) 

/TpR 5 low-pressure-turbine discharge pressure loss 

coefficient 

/ length, cm (in.) 

M Mach number 

N rotational speed, rpm 

P total pressure, N/cm2 (psia) 

PADR(0 address of ith analog potentiometer, / = 1 to 

53 

P/P pressure ratio 

PVAL(/) setting for potentiometer PADR(/), /=! to 

53 

p static pressure, N/cm2 (psia) 

Q torque, N cm (in Ibf) 

R gas constant, N cm/kg K (in Ibf/lbm ®R) 

RCVV compressor variable-geometry parameter, 

deg 

SF;^. scale factor on variable x, appropriate units 

T total temperature, K (®R) 

T/T temperature ratio 

AT/T temperature rise parameter 

t time, sec 

t' scaled time, sec 

u internal energy, J/kg (Btu/lbm) 

V volume, cm3 (in3) 

V velocity, cm/sec (in/sec) 

W stored mass, kg (Ibm) 

w mass flow rate, kg/sec (Ibm/sec) 

Wc corrected mass flow rate, kg/sec (Ibm/sec) 

Wp turbine flow parameter, kg K cm2/N rpm sec 

(Ibm ®R in2/lbf rpm sec) 

X scaled variable, computer units 

{X, Y) map inputs, appropriate units 

temperature interpolation constant 
7 specific heat ratio 

6 ratio of total pressure to sea-level pressure 

7) efficiency (0 < ?? < 1 .0) 
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6 ratio of total temperature to standard-day 

temperature 

Subscripts (Note that subscript may be combined, e.g., 




A 

air 

AB 

augmentor 

am 

ambient 

B 

main combustor 

BL 

bleed 

BLHT 

high-pressure-turbine cooling bleed 

BLLT 

low-pressure-turbine cooling bleed 

BLOV 

overboard bleed 

C 

compressor 

cr 

critical flow 

des 

design point 

E 

nozzle exit plane 

es 

expelled nozzle shock 

F 

fuel 

FAN 

fan 

H 

high-pressure spool 

HT 

high-pressure turbine 

/ 

inlet 


ID fan hub region 

/ initial condition 

id ideal 

in into volume 

j station (fig. 3),j=0, 2, 2.1, 2.2, 3, 4, 4.1, 5, 

6, 7, 8, 9, 13, 16 

j’ entrance to volume at station J,J=3,7, 13 

k index on flows into volume 

L low-pressure spool 

LT low-pressure turbine 

M map 

m index on flows out of volume 

N nozzle 

n net 

OD fan tip region 

out out of volume 

X upstream side of shock 

y downstream side of shock 

Superscripts: 

( )* sonic flow condition 

(') time derivative 
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Appendix B 

Derivation of Dynamic Energy Equation 


For transient flow through a control volume K, the 
first law of thermodynamics can be written in the 
following dynamic form (ref. 18): 

dt( Wli) ~ ^ ^ ’^out./n^out.m+'^in 


If we assume perfect mixing within the control volume 
and a small temperature gradient across the control 
volume, we can substitute h (the average enthalpy in the 
volume, corresponding to temperature 7) for each of the 
Doing this and noting that 


L. ^ 

J dt 


(Bl) 


, RT 
u = h~ — 


(B5) 


All symbols are defined in appendix A. Equation (Bl) 
assumes k sources of flow into the control volume and m 
flows discharging from the control volume. Heat Ffj„ is 
being added to the fluid in the volume and work may be 
done by the fluid. Taking the derivative of the product 
Wu and noting that 


du dT 

dt dt 


(B2) 


yield the following equation: 



dfV . 

ijj ^in,Ar~ Zj *'’out,m 

yield the following equation: 


(B3) 


^in,k^in,k ^ ^out.m^out.m 

~ 2 (B4) 


Finally we can substitute 7 - 1 for R/Jct, to obtain the 
following form of the dynamic energy equation: 

^ ^ - /») + //in - ^ ^ 

+ (7 — ^VVout,m^ (B7) 
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Appendix C 

Target Analog Program 


Scaled Analog Equations 


=GAIN(1) PVAL(3)DW13 dt' +PVAL(1) 
Jo 


Sf\ SFr4 


= GAIN(1) ( 
Jo 


t' PVAL(2)DTQW13 ^^, 


IF,3/SFfK,3 


= GAIN(4) PVAL(18)DW41 dt' 
Jo 


+ PVAL(16) 


+ PVAL(4) 


^ = 10 PVAL(5) ^ ^ 

SFp,3 SFw,3 SFt-,3 


^ =GAIN(4) f' 
SFj-^i Jo 


PVAL(17)DTQW41 
W"4.i/SFh.,, ' 


+ PVAL(19) 


=GAIN(2) PVAL(8)DW3 dt' + PVAL(6) (C4) = 10 PVAL(20) 


SK =°^'NP) SI 


PVAL(7)DTQ^ ^ py^L(9) ^ = GAIN(5) ( ^ P VAL(23)DW6 dt ' + PVAL(2 1 ) 

I lF3/SFjf'3 


■^3 _ inr>\AAi /'im ^3 


= 10PVAL(10) 


SF^/ SFj- 


= GA1N(3) PVAL(13)DW4 £/t'+PVAL(ll) 

Jo 


T6 ^ f'' PVAL(22)DTQW6 

p;r=°^™(5))^ 

+ PVAL(24) 


^ = 10PVAL(25) ^ 

SFpj SFjf^^SFj-j 


:GA1N(3) ( 
Jo 


t' PVAL(12)DTQW4 ^^, 


W^/SFw, 


% =GAIN(6) [‘ PVAL(28)DW7rf/'+PVAL(26) 


+ PVAL(14) 
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Ti f'' PVAL(27)DTQW7 ^ , 

+ PVAL(29) 


N„ 


SF, 


Nh 


= GAIN(7) PVAL(31)DXNH rff'+PVAL(32) 
J 0 


(C17) 


(C19) 


^ = 10PVAL(30),-i^ 


(C18) 5^ =GAIN(8) [' PVAL(33)DXNL*'+PVAL(34) 

or \7. JO 


SFp, 


SFff/, SFj-, 


SFm 


<*;)'/(*)] 


-PVAL(38)| 


dt' +PVAL(35) 




Potentiometer Settings 
PVAL(1)= 

SFwti 


PVAL(2) = PVAL(3) = 


PVAL(10) = 


^/iSFffTjSFj'j 

lOKjSFp, 


SF 


W2 


SFj^,jSF,GAIN(l) 


PVAL(4) = -^^^ 




PVAL(5) = 


10Ki3SFp,3 


PVAL(11)= 

PVAL(12) = PVAL(13) = 


PVAL(14)= 


SF*,, 


SF**. SF,GAIN(3) 


PVAL(6)= 


SF*k, 


PVAL(7) = PVAL(8) = 


PVAL(9)=^^^ 

SFr* 


PVAL(15) = 


^/lSF*f.,SF7-, 

IOK 4 SFP, 


SF 


W 2.2 


SF**..SF,GAIN(2) 


PVAL(16)= -^ 44 ^ 


SF*f. 


PVAL(17) = PVAL(18) = 


SF 




SF**., ,SF,GAIN(4) 


(C20) 


(C21) 


PVAL(39) (C22) 
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PVAL(19) = 
PVAL(20) = 
PVAL(21) = 
PVAL(22) = 
PVAL(24) = 
PVAL(25) = 
PVAL(26) = 
PVAL(27) = 
PVAL(29): 
PVAL(30) = 
PVAL(31): 
PVAL(32)^ 
PVAL(33) 
PVAL(34) 
PVAL(35) 
PVAL(36) 
PVAL(37) 


^4.1,des 

SFr., 


PVAL(38) = 


(■^/Oi>Sc^l3,des(^I3,des ■^6,des)SP(v’i3 ^13 
^l3.des^^7’,3.desSF«.,3SF,GAIN(9) 


10K4.jSFp,, 


PVAL(39)=^|^ 


^6.des 

SFjkj 


PVAL(40) = 


(^/Oab^cSFpj 

SF(»,^SF,GAIN(10) 


PVAL(23) = 


SF 


<^6 


SF^^SF,GAIN(5) 


PVAL(41) = 


(A//)ab5cSFp, 

SF(v,^SF,GAIN(10) 


F6,des 

SFr* 

^ASFjf'jSFpj 

10F6SFp, 


^7,des 

SFh/:^ 


PVAL(28) = 


SF^, 

SFj3^3SF,GAIN(6) 


^7,des 

SFr, 

^aSFh'^SFj’^ 

lOFySFp, 


900ySF^„^SF^^ 

x2///SF^^SF,GAIN(7) 

SFn„ 

900JSF^;,^^SF^,, 

x2/iSF^^SF,GAIN(8) 

^Z,,des 

SFn, 


PVAL(42) = 
PVAL(43) = 
PVAL(44) = 
PVAL(45) = 

PVAL(46) = 
PVAL(47) = 
PVAL(48) = 
PVAL(49) = 

PVAL(50) = 


{A/l)fi^ 2 gcP 6,des(^6,des •F 7 ,des)SF,;vj Fg 
<^.des^/l7’6.desSFK.,SF,GAIN(10) 

^F,4 


SFw,., 


-^8 

SFa, 


Ae 

SFa, 

ALT 

Mq 

SFa/o 

-(ClVV-gcivv) 

SFcivv 


-(RCVV-gRcvv) 

SFrcvV 


’^13,des 

SF(v,j 


PVAL(51) = 


SFx 

^ am 


(A//)i>gcSFp,3 

SF(,,,3SF,GAIN(9) 


PVAL(52) = 


^2,des 

■F|3,desSF(p,j/Pj) 


(A/DogS^P, 

SF(,,3SF,GAIN(9) 


PVAL(53) = 


F*2.2.des 

F’3,desSF(P3/pjj) 







Volume Kg 


Koiors 
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Appendix D 

Target Digital Program 



Flowchart of target digital program EXEC I 


Source Listings 

SUBRdUl INE BTflSK 

D I MEt JS I ON X < 45 > , SK < 45 > . V < 45 > . ERR C 45 > 

LOGICRL SEfi'-.W 

SCRLED FRRCTION P0, P2.. Pi3.. P22. P3, P4. P41.. P5/ PiS. P7, TRi-i, T2.. T13. T22.. 

1 T3, T4, T41,. T6, 77. WR2.. WR13:,. WR22.. WR2, WG4.. WG41. WG6. WG7. DH4. DH41. ETRB. 

2 ETRRB. FNE T. XNI • XNH. WF4. WF7. RS. RE. RLT. XMN. CDN. CVN. Cl VV. RCVV. FNM. 

3; J1 < 29 > . J2 C 7 > . J3: < 4 > . J4 -C 26 > . J5 < 20 > . J6 C 14 > . J7 < 4 > . JB < 8 > . J9 < 8 > . J10. 

4 Jll <; 14 > . J12 < 9 > . J13 < 18 > 

COMHON/VRR/RLT. KMN. TRM. P13. XNL. Cl VV. P3. XNH. RCVV. WR13:. 713:. 73:. P4. 74. 

1 P41. WF4. 741. P6. WG6. 76. P7. 77. RS. RF. WF7. P2. 72. Jl. WR2. P22. J2. 722. J3v. 

2 WR22. J4. WR3. J5. WQ4. J6. E7RB. P5. J7. WG41. DH4. JS. DH4:1 . J9. P0. CDN. CVN. 

3; J10. FNM. WG7. Jll. E 7RRB. J12. FNE7. J13 

IF<. N07. SENSW<5>> RE7LIRN 
RERD < 4 . 400 X X < I > . I =1. 4 5 > 

RERL;"::4. 400 <SF< 1 >. 1=1, 45> 

400 F0RMR7-:;5F12. 5> 


’<2>=P2 
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V<3>=P13: 

V'.';4>=P22 

V-.-;?;.>=P2 

V<6>=P4 

V‘;:v>=P4i 

v<:s::'=P5 

V S' > =PO 
S' :li-3 !•' =PV’ 

V Cl;! '>=11=1^1 
V-;;i2>=T2 
v;:i'4>=TiS 
V<14>=T22 
v<i5>=t:^ 

V<:it.>“T4 

V<l.V>=T4i 

V>:;iS>=TfS 

v<;:i.9;;>=T7 

V':;2v-1>=WR2 

V';;21>=WR13 

V<r.22>=WR22 

V«:;23>=WRi: 

V<. 24 =l'JG4 

V<25>=HG41 

V<26>=WGR 

V'::27>=WG7 

V<28>=0H4 

V<2S'>=DH4i 

V<Sv:i>=ETRB 

V<31>=ETRRB 

V02:;-=FNPT 

VO-:3>=XrJl- 

V<S4:>=XNH 

v>:;:5;5:>=1'.!F4 

V';;36;'=WF7 

V'ri:7>=Ro 

v>;~;s>=RE 
VC39>=RLT 
V<40>=KMN 
VC4:l>=CDN 
V<42>=CVN 
VC4";>=-CIVV 
Vc:44>=-RCVV 
V<;45>=FNN 
DO 10 1=1.45 
10 v<.';i>=V';i>+SFc:i> 

V<44::'=V<44;'+4. 0 
DO 20 1=1.. 45 

IF'::K'r.I>. EQ. 0. > KC.I>=. 00061 
20 ERR < I > = V < I > C I > 

TVPi;; 410 

410 FCJRMnKS;-:. 25HS rERDV-STRTE ERROR RRTIO 
TVPE 420. >:;Eh;R':; I > . 1=1. 45 > 

420 FORI’1RT<;hF10. 5.:' 

RETURN 

END 
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SUbiROU r I HE DRTfl I H H> F > 

D I MENS 1 OH H < 1 > , VflLS < :-*5 > , XVRLS < 25 > . ZSC < 4 > 

DIMEHSIOH ISC<4>. IX<4>. IV<4>. IZ1<4>, IZ2«::4>. 

SCALED FRRCTIOH TEST 

K=1 

JF=0 

5 READ <6.. 400 >M. HCV, HPT. HFCT.. HCOM 
400 FORMAT 'r.SIS:- 

IF<M. EQ. 0>RElUPH 

IHC=HCV:+:HPT 

H>ao=M 

H<K+i>=l 

H<K+2>=i 

H<K+3>=HPT 

H<K+4>=Hr;V 

K=K+5 

READ < 6. 4 - 1.0 > < I SC < I > . I = 1 . 28 > 

410 FORMAT <28A2> 

READ <6. ISOXSC. VSC. <ZSC'£:i>.. 1=1.. HKCT> 

READ G. IV > < VALS < I > . I =1. HCV > 

JS=.JF+1 

JF=JF+HCV 

1=1 

DO 10 J=.JS. JF 

F<J>=VRLS<:i>.-VSC 

CHECK COHSECUTIVE VALUES OF V 

iF<j. ME. js> test=f<;j>-f<:j-i:) 

10 1 = 1+1 
JS=JF+1 
JE=JF+HPT 
DO 90 L=l. HCV 
IF<MCOM. EQ. 0> GO TO 14 
IF<MCOM. EQ. 327G7> GO TO 16 
HC0M=32?6? 

14 READ < 6. I K > < XVALS < 1 > , I =1. HPT > 

16 1=1 

DO 20 J=JS. JF 
F C J > =XVALS <. I > /KSC 
CHECK COHSECUTIVE VALUES OF X 
IFCJ. HE. JS> TEST=F<J>-F<J-1> 

IF CL. EQ. i> GO TO 20 
JMMPT=J-MPT 
TEST=F < J > -F < J MHPT > 

20 1 = 1+1 

DO 80 HF=1.. HFCT 
GO TO <30, 40. .50. 60>. HF 
30 READ <6.1 71 > < VALS < I ) , I =1. HPT > 

GO TO 70 

40 Rfc:AD < 6. 1 22 ) < VALS < I > . I =1. MPT > 

GO 10 70 

50 READ < 6. I Z3 > < VALS < I > . I =1, MPT > 

GO TO 70 

..TF=.JF+IMr: 

1=1 

DO 80 J=JS. JF 


IZ3<4>. I24<4> 
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F J > = VfiLS < I > /ZSC < NF > 

C ... CHECK CONSECUTIVE VALUES OF Z 
IF<..T. fJE. ..TS> TEST=F<.J>-F<.J-i> 
IF<L. EQ. i> GO TO SO 

.jmni:t=.j-npt 

TEST =F J > -F < .JMHPT > 

SO 1=1+1 

IF<L. EQ HCV>GO TO 5 
•JS=.JS+NPT- 1 HC+t4FCT 
SO .JF=..TS+fiPT-l 
END 


SUBROUTINE FLCONCKHT.. Km, TflS. PT. TT, PS, TS> 

D I MENS I ON N1 < 3 > , N2 < 3 > . N3 < 3 > 

SCALED Fk ACT I ON XI < 11 > , VI •' 11 > . X2 < lO > . V2 < 10 > . K 
SCAI.ED FRACTION HT, XMO. PT. TT> PS> TS> TTQS. PTQS> 


3<7>> V3<7>. FUNl 
ETA I, TAS, TR35. XNP, 


XPP 


COMMON/ INI-/' 

INLET 



DATA Nl/2, 1 

. 11/. N2. 

'’3. 1. 10/ 

J NJ>/’4> 1.J 

DATA XI /. 

00000S/ 

O5OO0S. 

, ■10000S> 

1 . 52500S. . 

62500S. 

FSOOOS. 

593955^... 

DATA VI /. 

734S0S. 

63460S. 

, 54585S> 

1 . 12404S, . 


05244S. 

. 020185/ 

DATA X2 /. 

00000S. 

lllllS. 

. 22222S. 

1 r i‘‘ 1*' I*' S^ . 

i"*n“*tooocr 

•:kC|.:iCiQ<r. ... 


DAT A V2 /. 

000005^ 

000465^ 

. 00517S. 

1 . 41493S, . 

66214S.. 

99999S/ 


DATA X3 /. 

00000S.» 

nil IS. 

. 222225. 

DATA V3 /. 00000S, 
TS= TAS-. 2S4SS+H 1 

. 05149S. 

. 1S126S. 

IF<TS . LT. 

3S999S> TS= 

3-S999S 

IF<HT . LT. 
PS=FUNKN1.. 

. 00OO0S 
XI. HT> 

> HT= . 

000005 


100 TTQS= . 33333S + . 6OO0OS+-<XrTO+XITO> 
TR35=FUNKN2. X2. TTQS> 

PTQS= TR.35/. 85533S 

ETA1= . 99SS9S 

IF< INLET. NE. 1> GO TO llO 

IF<XMO . LE. . 33333S> GO TO llO 

XMP=XMO-. 33333S 

KPP=FUN1<N3/ K3, KMP> 

ETAI= . 99999S -. 3305OS=+=XPP 
i-1.0 TT= <TTQS+TS>/. 33333S 
PT= <ETAI+=PTQS+ PS>/. 05S 
RETURN 
END 


17500S. . 

27.500S. . 

250005. . 

42500S. 

4j>lyyy. . 

31062S. . 

23922S. . 

18176S. 

33333S. . 

44444S. , 

555555. . 

, iSSiSEES. 

0213SS. . 

, 05S53S. . 

. 127305. . 

, 24192S. 

33333S. . 

44444S. , 

555555. . 

. E*E* Set'S/ 

27692S. . 

. 33461S. , 

, 452245. 

. 57S46S.- 


SUBROU r I NE POOR < N, X I N > 
SCALED FRACTION XIN.. X 
CONMON/FUNVAL/MN . X 
LOGICAL CL7 
IF<N. EQ. 0> GO TO lOO 
CALL QRSLLCF.. CL7, IER;> 
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CRLL QRSLL<7. CL7.. IER> 

iFo:;L7:;' return 

CALL QWCLLC7. . TRUE. .. IER> 

MN=N 

K^-KIN 

RETURN 

100 WRITE<1> 400 >MN. X 

400 F0RMRT-:;/12Hf- UNCTION NO. .. 13. 19H INPUT OU 1 OF- RRNGE/6HXIN 
CRLL QWCLLC?.. . FALSE. . IER> 

RETURN 

END 


SCALED FRRC'IION FUNCTION FUNKN. F. XIN> 
SCALED FRACTION F<1>. >aN. XI. X2. XFRAC. FUN'1 
DIMENSION N<1> 


IF<N 

<1>. E 

Q. 0> 

GO 

TO 

200 

I=N< 

P. 





NXP= 

N<3> 





100 X1=X 

1N-F< 





IF<X 

•1. GT. 

. 0S > 

GO 

TO 

110 

IFCX 

1. EGl. 

. 0S> 

GO 

TO 

120 

IF<I 

. LE. 1 

> GO 

TO 

140 


1 = 1-1 
GO TO 100 
110 X2=X I N-F ■' I +1 > 

IF<;X.2. LT. . 0S> GO TO 180 
IF<X2. EG!. . 0S> GO TO 130 
I = I-H 

IF>n. GE. NXP> GO TO 150 
X1=X2 
GO TO 110 
120 XFRAC=. 0S 
GO TO 190 
130 XFRRG-=. 99999S 
GO TO 190 
140 XFRflC=. 0S 
GO TO 160 
150 XFRAC=. 99999S 
1 = 1-1 

160 CALL FOOR<N. XIN> 

GO TO 190 

180 XFRRC=X1/ < X1-X2 > 

190 N<2>=! 

200 I=I+NXP 

FUN1=F < I ) +Xf- RRC:+: C. F < I +1 > -F < I > > 

RETURN 

END 


SCALED FRACTION FUNCTION FUH1L<F> 

SCALED FRACTION FUNi , FUNIL. F. XIN 

C XIN IS DUMMY ARGUMENT AND DOES NOT RFTECT RESUl TS 

N=0 



FLIH1L=FUNKN, F.. XIH> 

RETURN 

END 


SUBROUTINE INITRL 
C MRP RRRRVS 

D 1 MENS I ON N1 < 5 > . N2 < 5 > . N'J < 5 > / N4 < 5 > . Nb < 5 > > N6 < 5 > 

SCRI.ED FRACTION Fl<222>. F2*322>. FS<854>. F4<5iS>. F5<224>. F6<224> 
C OTHER VRRIRBLES 

SCALED FRflCT I ON DC < 125 > . DflC I < 24 > . P VRL < 80 > . PSET. ERR 
D I MENS I ON I RRDR < 16 > , I G < 10 > . PRDR < 80 > 

DIMENSION EKTRfl<74> 

COMMON/MRPS/Nl. N2. N.£, N4, N5, N6, FI. F2. F3, F4. F5. F6 

COMMON/ 1 NL/ 1 NLET/ 1 DRC/DRC I /COEF/DC. EXTRfl/BLEED/KBH. KBL. KBV 

DR 1 R I BELL/ ' 102640/ 

C INITIALIZE ANALOG CONSOLE 

CALL QSCCG. IER> 

CALL QSC<1. IER> 

CALL QSCLR<IER> 

CALL QSRUN<IER> 

TYPE 300. < I BELL. 1=1. 10 > 

300 FORMAT < 10 Al> 

TYPE 400 

400 FOl'.lMATC/Z/. 38H l URN ON CARD READER. THEN TYPE RETURN. /> 

ACCEPT 500. J 
500 FORMAT < I 3> 

C READ AND SCALE MRP DATA 

CAL.I. DATAIN<N1. Fl> 


C READ DIGITAL COEFFICIENTS 

READ < 6. 510 X DC < I) . I =1. 125 > 

510 FORMAT ■' < 3X. 5 < S?. 2X > > > 

C READ INLET AND BLEED INTEGERS 

READ <6. 520 > INLET. KBH. KBL. KBV 
520 FORMAT < < IX. 4 < 1 7. 2X > > > 

WRITE <6. 310 > 

310 FORMAT -MHl) 

C READ IN IEGRATOR GAIN DATA AND PRINT INS I RUCTIONS 

DO 20 K=l. 6 

I=2+K-l 

J=2:+=K 


READ C 6. 530 > I A ADR < I > . I AADR < J > . I G < K > 

530 FORMAT <214 ) 

IF<IG<K>. GE. 3 > WRITE <6. 540> I AADR< I >. IAADR<J> 

540 FORMAT < 3X. 12H INTEGRATORS . 13. 5H AND . 13. 23H MS INPUTS SHOULD BE PA 
ITCHED HIGH) 

IF<<IG<K). EQ. 0>. OR. <IG<K). EQ. 3))WRITE<6. 550) I AADR< I >. IAADR<J) 

550 FORMAT < 3X. 12H INTEGRATORS . 12. 5H AND . 13. 31H F INPUTS SHOULD BE PAT 
ICHFD LOW) 

I FR ADR= I AADR < I ) +4 

IF<<IG<K). EQ. 2). OR. <IG<K). EQ. 5))WRITE<6. 560)IFRADR 
560 F0RMAT<3X. 15HFUNCTI0N RELAY . 13. ISH SHOULD BE SET HIGH) 

20 CONTINUE 

DO 30 K=7. 10 
I=K+6 
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RFFID<6> 5'i0)IRf=lDR<I)> IG<K> 

IF<1Q<KX QE. 2>WkITE<6> 570>IflflDR<I) 

5?0 FORMRKSX. IIH INTEGRATOR , 13. 22H MS INPUT SHOULD BE PATCHED . HI GH> 
IF<<IQ<K>. EQ. 0>. OR. <IG<K>. EQ. 3))WRITE<6. 580)IAAOR<I) 

580 FORMAT < ilH INTEGRATOR . 13. 30H F INPUT SHOULD BE PATCHED LOW) 
IFRflOR=IRADR<I)+4 

IF<aG<K). EQ. 2). OR. <IG<K>. EQ. 5>) WRITERS. 560)IFRADR 
20 CONTINUE 

WRITE <6. 590) 

590 FORMAT <3X. 21HRESET ALL OTHER FLJNCTION RELRVS//) 

C READ DAM DATA AND INITIALIZE DAMS 

WRITERS. 600) 

600 FORMAT c; 2X. •i0Hr;<AM VALUES/) 

READ C 6. 510 ) -r. D AC I< I ) . I =1. 24 ) 

CALL QWBDASCDACI. 0. 24. lER) 

CAI L QST DA 

WR I T E < 6. 510 ) < D AC I < I ) . I =1. 24 ) 

TYPE 300. < I BELL. 1=1. 10) 

TYPE 405 

405 FORMAT < 3X. 66HBE SURE ALL FUNCTION RELAYS ARE SET PROPERLY BEFORE T 
lYPING RETURN. /) 

ACCEPT 500. .J 

C READ POT DATA. SET AND CHECK POTS. AND PRINT RESULTS 

25 READ <6. 610) N 
610 FORMAT-r. 14) 

IF<N. LE. 80) GO TO 37 
TYPE 407 

407 FORMAT <; 3X. 27HTOO MANY POTS. LIMIT AT 80. ) 

CAI L MONOUT 
37 WRITE <6. 620) 

620 FORMAT >MH1. 6X. 4HADDR. 4X. 4HC0EF. 4X. 3HSET. 4K. 5HERR0R/) 

DO 40 1=1. N 

READ 6. 630 ) PADR < I ) . PVAL < I ) 

620 FORMAT-:; IX. R4. IX. S5) 

CAI .L QWPS PADR < I ) . PVAL < I ) . I ER ) 

40 CONTINUE 

CAI L Q£PC<IER) 

DO 50 1=1. N 

CALL QR AS PADR < I ) . PSET. I ER ) 

ERR=SABS<PVAL<: I )-PSE"l ) 

IF<ER.R. GE. . 0002S) GO TO 45 
WR I TE C 6. 640 ) PADR < I ) . PVAL < I ) . PSET 
640 FORMAT <6X. A4. 3<2X. S6)) 

GO TO 50 

45 WR n E < 6. 640 ) PADR < I ) . PVAL < I ) . PSET. ERR 
50 CONTINUE 

60 TYPE 300. < I BELL. 1=1. 10) 

C INITIALIZE OUT OF RANGE ROUTINES 

TYPE 410 

410 FORMAT </2X. 39H IGNORE FOLLOWING OUT OF RANGE MESSAGES. ) 

CALL MOOR. <99. . 0S. . 0S) 

CALL MOOR CO. . 0S. . 0S) 

CALL F00R<99. . OS) 

CALL FOORC0. . OS) 

CALL QSIC<IER) 
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TYPE 420 

420 F0RmT</2X. 52HSET SENSE SWITCH F TO ENTER. INFORM, THEN TYPE RETURN 

1 . /> 

ACCEPT 500, J 
RE'I URN 
END 


SUBROU T I NE LEVELS 
LOGICAL PBS 

C PULSE PBS FOR MAP OR FUNCTION OUT OF RANGE MESSAGE 

CALL QRSLL<6, PBS, IER> 

C DUMMY CALL TO MAP OUT OF RANGE ROUTINE 

IF<PBS> CALL MOOR<0, . OS, . OS> 

CALL QRSLL-'.?, PBS, IER> 

C DUMMY CALL TO FUNCTION OUT OF RANGE ROUlINE 

IF<PBS> CALL FOORCO, .0S> 

REfURN 

END 


SUBROUT 1 NE LOOP 
C ADC VARIABI.es 

SCALED FRACTION ALT, XMN. TAM, PO, KNL, CIVV, PS, XNH. RCVV, WAIS, T13, T2, 

•1 P4, T4, P41, WF4, T41, P6, WG6, T6, P7, T7, AS, AE, WF7 
C DAC VARIABLES 

SCALED FRACTION P2, T2, K3, WAR2, K4. WAR22, DW'1.7, DTQW13, DWS, DTQWS, DW4, 
i DTQW4, DW4:1., DTQW41, DW6, DTQW6, DW7, DTQW.-’, DXNL, DXNH. FNI-T ' 

C MAP ARRAYS 

D I MENS I ON Ni 5 > , N2 < 5 > , N7 < S > , N4 < 5 > , Nb < S > , NS < S > 

SCALED FRACTION Fi<322>, F2'r.322>, F3<SS4>, F4c;.SlS::', FS'.-;224>, F6<224> 

C FUNCTIOr^ ARRAYS 

DIMENSION N7'.-;3> 

SCAI .ED FRACT I ON X7 < iS > , Y71 < 15 > , Y72 < 15 > 

C OTHER VARIABLES 

SCALED FRACTION DC:C125>, MAP, MAPL, FUN'I . FUN1 L, ALTM. XMNM, P2A, T2A. P0A 
SCALED FRACTION VS, WAR2M, ETHOFM. P22Q2M. ETAIFM- FSHIF f, WA2, P22, PRIF 
SCALED FRACTION T2M, CP2, CV2, GM2, H2M, TRIFM1 , T22, Y4, WAR22M, E I AHCM 
SCALED FRACTION CSHIFT, l'JA22, PROF, TROFM'I . TISP, TISPM. CPISP, CVISP 
SCAI ED FRACTION GM12P, H13PM. H13P, T13M, CP13, CV13, GM13, HUM, H13 
SCALED FRACTION GM13M, TSM. CP3, CVS, GM-'?, HSM, FGMS, FGPT3, WBLHT, WBLLT 
SCALED FRACTION WBLOV, WA3, HS, PRHC, TAVHC, CPHC, CVHC, GMHC, HHCM, TRHCMl 

T3P, T3PM, CP3P, CV3P, GMSP, HSPM, H 'ip, GMSM. X5, Y5, WP4 
FRACTION HP4, WG4, TAVB, CPB, CVB, GMB, HAM, HB, FAR4M, T4M, CP4, CV4 
FRACTION GM4, H4M. H4, GM4M. ETAB, PS, K6, Y6, WP41, HP41, WG41, DH4 
SCALED FRACTION FAR41M, T41M, CP41, CV41, GM41, H41M- H41, GM41M, DH41, T6M 
SCALED FRACTION FAR6M, CPS, CVS, GMS, HSM, HS, GMSM. P0, CDN. CVN, WG7M, FNM 
SCALED FRACTION WG7, TAVAB, CPAB, CVAB, GMAB, HABM, HAB, T7M, FAP.7M, CP7 
SCALED FRACTION CV7, GM7, H7M, H7, GM7M. ETAAB, H:-'. T22M- CP22, CV22, GM22 
SCALED FRACTION H22M, H22, P0QT7, T0A, UNUSED'.' IS > 

D I MENS I ON EXTRA 74 > 

COMMON.-'MAPS.''N-1 , N.2, N ?, N4, Nb, NS, FI, F2, FS, F4. F5, FS 
COMMON/ 1 rJI ./INLE r/COEF/DC, EXTRA/BLEED/KBH, KBL, KBV 

COMMON/VAR/AI T, XMN. TAM. P13, XNL, CIVV, P3, XNH, RCVV, WA13, T13, T3, P4, T4, 


SCALED FRACTION 
SCALED 
SCALED 
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1 P41, WP4, T4i. Pe, WG6. T6, P7, 17, PQ, fiE> WF7, P2, 12, X \>IPP.2, X4, WRR22, 

2 DWt2/ DTC!W1.2> DW2, DTQW2, DW4, DTQW4, DW41. DTQW41, DW6> DTQW6. DW7, DTQW7. 

3 DXfJL. DXNH. RLTM, XMMM. P2R, T2R. P0R, V2, WRR2M. E TROFM. P22Q2M. ETRIFM. 

4 FSHIFT. WR2. P22. PR IF. T2M. CP2. CV2. GM2. H2M. TRIFMi . T22. V4. WRR22M. 

5 ETRHCM. CSHIFT. WR22. PROF. TROFMi.. T12P. T12PN. CP12P. CV13P. GMi2P. 

6 H12PM. H-1 2P. T12M. CP12. CV12. GM1 2. H12M. H12. GM1.2M. T2H. CP2. CV2. GM3. 

7 H2M. FGM2. FGPT2. WBLH T. WBLLT. WRLOV. WR2. H2. PRHC. TRVHC. CPHC. CVHC. 

8 GMHC. HHCM. TRHCMi. T2P. T3PM. CP2P. CV2P. GM 5P. H ?PM, H2P, GM3M. X5. V5. WP4. 

9 HP4. WG4. TflVB. CPB. CVB. GMR. HBM. HR. FRR4M. T4M. CP4. CV4, GM4. H4M. H4 
C0MM0H/VRR/GM4M. ETRB. P5. X6. V6. WP41. HP4J , WG41. DH4. FflR41M. T41M. CP41. 

1 CV41. GM41. H41M. H4i. GM41M, DH41. T6M. FRRRM. CP6. CV6. GMS. H6M. H6. GM6M. 

2 P0. CDN. CVN. WG7M. FNM. WG7. TflVRB. CPRR. CVRB. GMRH. HARM. HRB. T7M. FRR7M, 

3 CP7. CV7. GM7. H7M. H7. GM7M. E TRRB. H2. T22N. CP22. CV22. GM22. H22M. H22. 

4 P0QT7. TOR. FNET. UNUSED 
DR1R N7/1. 1. 15/ 

DRTR X7 /. 05000S. . 24732S. . 40345S. . 42196S. . 45522S. . 48029S, . 51127S. 
i . 54541S. . 57747S. . 61725S. . 660J7S. . 72709S. . 84277S, . 91296S. . 95000S/ 
Dfll fl V71 /. 96610S. . 96610S. . 95366S. . 95208S. . 95019S. . 95172S. . 95369S. 
1 . 95709S, . 95519S. . 94861S, . 92186S. . 88707S. . 88481S. . 90661S. . 92250S/ 

Dfi ffl V72 /. 97034S. . 97034S. . 97184S. . 97431S. . 97727S. . 98022S. . 98406S. 
1 . 98922S. . 99500S. . 99999S. . 99999S. . 95010S. . 95272S. . 96547S. . 97600S/ 

C COMPUTE FHH IMLEI CONDITIONS AND FRN PERFORMRNCE PARAMETERS 

100 CALL QRBAOSCALT. 0, 2. IER> 

ALTM=DCd>>^ALT 

XMNM=DC<2>H:XMN 

CALL FLCONIKALTM. XMNM. TAM. P2R. T2A. P0A. T0R> 

P2=<. 5SH‘P2A>/DC<3> 

T2=<. 5S*T2A>/DC<4> 

CALL QW.TDRS<P2. 0. lER) 

CALL QWJDAS<T2. 1. lER) 

105 CALL QRBADS<P12. 3. 2. IER> 

X3= < DC < 58 > *P1S > /P2 
V3=<DC<:59>H<XNI )/SSQRT<:T2) 

WAR2M=MAP<N2, F3. X3. V3) 

ETA0FM=MAPL<F3> 

P22Q2M=MRPL<F3> 

ETRIFM=MAPL<F2> 

IF<CIW. LT. . 0S>CIVV=. 0S 
1:1.0 FSHIFT=MRP<N1. Fl. CIVV. V3> 

WRR2=<WAR?M»«<. 5S+. SS^FSHIFT) >/. 5S 
CALL QWJDAS<X2. 2. IER> 

CALL QWJDRS<WAR2. 2. IER> 

WR2= < WRR2H-P2 > / < SSQRT < T2 ) *DC < 57 ) > 

P22= < P22Q2M+P2 > /DC C 60 > 

PRIF=<DC<10>*P22>/P2 

T2M=DC<6>>»<T2 

li.5 CALL PR0C0M<T2M. . 0S. CP2. CV2. GM2. H2M> 

CALL TRAT<1. PR IF. GM2. TRIFMi > 

T22=<DC<i i )**tT2H=<. 2S+DC<91>>»‘TRIFM1/ETRIFM> )/. 2S 

C COMPUTE COMPRESSOR PERFORMANCE PARAMETERS 

120 CALL QRBRDS<P2. 6. 3. lER) 

X4=<DC<62>*P3>/P22 

V4= < DC < 63 ) >fXNH ) /SSQRT < T22 ) 

WRR22M=MAP<N4. F4. X4. V4) 

ETRHCM=MRPL<F4) 
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IF<RCW. LT. . 0S>RCW=. QS 
CSHIFf=MftP<N2. F2. RCVV. V4> 
mR22=<WFlR22M>t=«C. 5S+. 5S>*«CSHIFT> >/. 5S 
CALL QWJDftS<X4, 4, lER) 

CALL QWJDAS<WAR22. 5/ IER> 

WA22=WAR22+P22/SSQRT < T22 > /DC < 61 > 

C COMPUTE DERIVATIVES AT STATION 12 

125-i CALL C!RBAf)S<WA12. 9. 2. IER> 

DW12=WA2-DC < 18 > W A22-DC < 56 > >^WA12 

PROF= C DC C. 8 > >^P13 > /P2 

CALL TRAT<2, PROF. GM2. TROFMl> 

T12P=<DC<9>+T2>K. 2S+DC<96)*TR0FM1 /ETAOFM> >/. 2S 
T12PM=DC< 24 > +T12P 

CALL PR0C0MCT13PM. . 0S. CP13P. CV12P, GM13P. H13PN> 
H12P=H1SPM/DC < 15 > 

T13M=DC<3:4>’^T13 

130 CALL PR0C0M<T13M. . 0S. CP13. CV13. GM13. H13M> 

H13=H13M/DC<15> 

GM13M=<GM13-. 5S>/. 5S 

DTG!W13= C < WA2-DC < 18 > +WA22 ) >♦< < H1.3P-H13 ) ) /CV13+T13><«DW13+GN13M 
CALL QWJDAS<DW13. 6. IER> 

CALL QWJDASCDTQW13. 7. IER> 

C COMPUTE BLEEDS ANF) COMBUSTOR AIRE'LOW 

125 CALL QPBADSa3.11.2.IER:;' 

T3M=DC<:i3>+T3 

CALL PR0C0MCT3M. . 0S. CP3. CV3. GM3. H ^:M> 

FGM2=<. 66572S-. 23396S=+-GM3>>+'GM3+. 33337S 
FGPT3=. 5S=+=FGM3+P3/S£QRT < T3 > 

IFCKBH. GT. 0> GO TO 140 
WBLHT=. 0S 
GO TO 145 

140 WBLHT=FGPT3/DC < 98 > 

145 IF'r.K.HL. GT. 0> GO TO 150 
WBLLT=. OS 
GO TO 155 

150 WBLLT=FGPT2/’DC •; 99 > 

155 IF<KBV. GT. 0> GO TO 160 
WBLOV=. 0S 
GO TO 165 

160 UBLOV=F GPT3/DC 100 > 

165 l'!A3=SSQP. r F'3=+= '' P3-P4 > / I 3 > /DC < 64 > 

C COMPUTE DERIVATIVES AT STATION 3 

DW3=WA22-. 2S+WBI .HT-. 02S+WBLLT-. 002S’+=WBLOV-DC < 43 > =+T-4A3 
H3=H*T-i/DC<17> 

PPHC= < r:-C -r. 14 > +P3 > /P22 
T AVHC=DC < S3 > ^+=T22+DC < 84 > +T3 
170 CALL FkOCOM<TAVHC. . 0S. CPHC. CVHC. GMHC. HHCM> 

CALL TkAT<3. PRHC. GMHC. TRHCM1> 

T3P= DC C 12 > >t=T22+ < . 2S+DC 92 > *TRHCM1/ET AHCM > > /. 2S 
T3PM=DC>:;i3>+T3P 

CALL Pk0C0M<T3PM. . OS. CP3P. CV3P. GM3P. H ^PM> 

H3P=H3PM/DC c; 17 > 

GM3M=<GM3-. 5S>/. 5S 

OTQM 5=WA22+ H3P-H3 > /CV3+T3+DU'::+GM3M 
CALL QW.JDAS-'DM -^. 8. IEP.:> 
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CRI I QW.JDR'=:<;DTQWi/ 9 . IER> 

C COMPUTE HP TLIREilNP PERFORMRNCE PRRRMP l ERS 

175 CRLI. QRBROS<T4. 13^ 3^ IER> 

K5= <; DC fc'6 > +P4 1 > /P4 

V5= < DC < 67 > ^XNH > /SSQRT C T 4 > 

WP4=MRP<H5, F5. X5, V5> 

HP4-MRPL<F5> 

WG4= < . 5S=t:WP4=+=P4+XNH > / < T4 +DC < 65 > > 

C COMPUTE DERIVRTIVES RT STRTIOH 4 

DU4=DC < 23 > =+=WR3- WG4+DC C. 44 > +UF4 
TRVB=DC < 35 > +T3+DC < 86 > +T4 
130 CRLL PROCOMCTflVB. . 0S. CPB. CVB, GMH. HBM> 

HB=H3M+DC<22> 

FRR4M= DC C 20 > +UF4 ) /WR3 
T4M=DC<21>»t=T4 

135 CRLL PR0C0MCT4M. FRR4M, CP4. CV4. GM4, H4M> 

H4=H4M+DC<22> 

GM4M=<GM4-. 5S>/. 5S 
ETRB=. 99599S 

DTQU4= < DC < 23 > +WR2>t:H3-H4+ C. DC 23 > =t=WR3+DC 44 > •+=WF4 > +DC < 24 ;■ +ETRB+ Wf- 4 > 
1 .•••CV4+T4+DW4:+<GM4M 
CRLL QW JDRS D W4 .10. I ER •;> 

CRLL G'MJDRS<DTQW4. 11. lER!? 

C COMPUTE LP TURF! IMP PERFORMRNCE PRRRMETERS 

190 CRLL QRBRDS<T41. 16. 2. IER> 

P5=P6/DC<76> 

X6= < DC < 74 ) +.P5 > /P41 

V6= < DC < 75 > ♦XML > /SSQRT < T41 > 

WP41=MRP<N6. F6. X6. V6> 

HP41=MRPL<F6> 

WG4:1 = < 1.4P4-.1 +P41H'.XNL > / < T41+DC < 73 > > 

C COMPUTE DERIVRTIVES RT STRTIOr-4 4. 1 

DW41=DC < 30 > >+= WG4+ DC < 72 ) =fWBLHT-WG4:1 
DH4= < HP4=+'SSQRT < T4 > >t'XNH ) /DC C 8? > 

FflR41M=<FRR4M+-. 5S>/<. 5S+<. 5S+. 04S*FRR4M>>t=DC<71>=fWBLH I /WG4 > 
T41M=DC < 28 > H:T41 

195 CRLL PR0C0M<T41M. FRR41M. CP41. CV41. GM41. H41M) 

H41=H41M+DC<29> 

GM41M=<GM41-. 5S>/. 5S 

DTC!W41= < WG4h=H 4/DC < 26 > - < DC < 30 > +WG4+DC< 72 > +WBLHT > >fH41+DC < 68 > 

1 WBLH r=t=H3-DC<27;+DH4+CWG4+DC<70)>H.4RLH l > >/CV41+T41+DW4l+GM41M 
CRLL QWJDRS<DW41. 12. IER> 

CRLL QWJDRS<DTQW41. 13. IER> 

C COMPUTE DERIVRTIVES RT STRTION 6 

200 CRLL QRBfiDS<l'4G6. 18. 2. IER> 

DW6=DC < 35 > +WR13- WG6+DC < 80 + W3LLT+DC <36 > =+4'4G41 
DH41= < HP41=fSSQRT < T41 > 4=XNI > /DC < 88 > 

T6M=DC<38>>fT6 

FRR6M=<FRR41M*. 25S>/<. 25S+<. 5S+. 04S+FRR4J.M>*DC<37>*<WR13+DC<81>=+= 
1 WBLLT>/WG41) 

205 CRLL PR0C0M<T6M. FRR6M. CP6. CV6. GM6. H6M> 

H6=H6M/DC<39) 

GM6M=<GM6-. 5S>/. 5S 

DTQ.W6= < DC < 31 > h-WR13h<H12- < DC < 35 > +UR12+DC < 80 > >»=WP.LLT+DC < 36 > H-WG41 > ^ 

1 H6+DC < 32 > >t'WG41+H41+DC < ?7 ) ’♦1JBLLT-+'H3-DC < 33 > +DH41>f- < WG41+DC < 79 > * 
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2 WBLI T ) > /CV6+T6x^DW6>t=GM6M 
CALL QWJDRS<DW6, 14, IKR> 

CRLI QWJDR«:<DTC<W6, 15, IER> 

C COMPUfE ^40>2LE PERFORMANCE PARAMETERS 

21A CALL QRBADS<P7, 20, 5, IER> 

P0= < . 5S:+=P0R > /DC C 5 > 

P0Q1 ?=DC < 111 > +P0/P7 
CDN=FUN1<N7, X7, P0QT7> 

CVN=FUN1LC:X7> 

213 CALL HOZZLCPCi, P7, P0QT7, T7, A8, AE, CDN, CVN, WQ7M. FNM> 
FNET=FNM-XMNM>f.S£;QRT < TOR > =t=WR2/DC < 45 > 

CALL QWJDAS<FNE T, 20, IER> 

WG7= < WG7M=+=DC < 95 > > /. 5S 

C COMPUTE DERIVATIVES AT STATION 7 

DW7=DC < 49 > -^WG6- WG7+DC C 55 > H-.WF7 
T AVAP=DC < 89 > >^T6+DC < 98 > -fT? 

215 CALL PROCOM<TAVAR, FAR6M. CF'RP,, CVRFL GMAR, HABM> 
HAB=HABM>t=DC<52> 


T7M=DC<51>*T7 

FAR7M=FAR6M+<DC<50)^<. 04S+FHR6M+. 5S>=H‘JF7>/<. 5S>+=WG6> 
220 CALL PR0C0M<T7M, FAR7M, CP7, CV7, GM7, H7M> 


H7=H7M>t-DC<52) 

GN7M=<GM7-. 5S>/. 5S 

IF<FHR7M. GT. . 39762S> GO TO 225 

ETARR=<<. 81226S-. 56042S*FAR7M)*F AR7M+. 25S>/. 5S 
GO TO 230 

225 EfAAB=<<. 75331S-. 72512S>t'FRR7N>>t<r-RR7M+. 29948S>/. 5S 
230 DTQW7= < DC < 49 > •+:|.JG6+FiAFj-H7+- < DC < 49 > ••+-.WG6+DC < 55 > +U!F V > +DC 


1 ET RAF! > /CV7+T7+DW7=+:GM7M 
CALL QWJDAS>::r>W7, 18, IER> 

CALL QWJDAS<DTQU7, 17, IER> 

C COMPUTE SPEED DERIVATIVES 

H2=H2M/DC<7> 

T22M=DC < 19 > +T 22 

235 CALL PR0C0M-;T22M, . 0S, CP22. CV: 


2, GM22, H: 


:m> 


=+=WF 7=+= 


H22=H22r-i/DC < 16 > 


< . 5S+DH41 +• < WG41+DC C 79 > •+-WBLLT > /DC < 93 ;■ - C WA2 
1 DC < 9 ;■ +H2 /DC < 4 J > - WA22+ <; FI22-DC < 11 > +H2 > /DC C 42 > :■ 
DXNH= ■; . 5S:+T;'H4:+: C WG4+DC •; 70 > +WBLH I > /DC C 94 > -WA22+ 

1 H22 > . 'DC <40 > > /Xf 4H 
CALL QWJDRScT'XNL, 18, IFR> 

CALL QU.JDAS<DXNH. 19, 1ER> 


-DC>:;i8>:+:WA22 

/XNL 

H5P-DC<12> + 


>+<H13P- 


RETUKN 


END 


SCALED FRACTION FUNCTION MAP<N, F, XIN, VIN> 

SCALED FRACTION F<1 >, XIN, VIN, VI NCR, XHI, XLO, XFR.AC, 2L, ZR, VI, V2, NAP 
DIMENSION N<1> 

IF<N<1). EQ. 0> GO TO 400 
I=N<2) 

J=N<3) 

NXP=N<4> 

NVC=N<5> 
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NPROD=NVC>+:NXP 
1P10 V1=V1N-F':;J) 

IF<V1. GT. . 0S> GO TO 110 
IFCVl. EQ. . 0S> GO TO 120 
IF<J, LE. 1> GO TO 140 
J=J-1 
GO TO 100 
1-10 V2=VIN-FC.J+1> 

IFCV2. LT. . 0S> GO TO ISO 
IF<V2. EQ. . 0S> GO TO 130 
J=J+1 

IF<J. GE. NVC) GO TO 150 
V1=V2 
GO TO 110 
120 VINC;R=. 0S 
GO TO 190 
130 VINCR=. 99999S 
GO TO 190 
140 VINC;R=, 0S 
GO TO 160 
150 VIMf;R=. 99999S 
J=J-1 

160 CALL MnOR>r.N/ XIM. VIM) 

GO TO 190 

180 VlMr;R=Vi/<Vl-V2) 

190 KX=.J=+:MXP+MVC+I 
LX=KX-NXP 

200 XLO=F c; LX ) + V I NCR* < F < KX ) -F < I.X ) ) 

IF<XIN. GT. XLO) GO TO 210 

IFC.XIN. EQ. XLO) GO TO 220 

IF<I. LE. 1) GO TO 240 

1 = 1-1 

LX=LX-1 

KX=KX-1 

GO TO 200 

210 XH 1 =F < LX+1 ) + V I HC:R* < F < KX+l ) -F CLX+l ) ) 
IFCXIN LT. XHI) GO TO 280 
IF<XIN. EQ. XHI) GO TO 230 
1 = 1+1 

IF<I. GE. HXP) GO TO 250 
LX=LX+1 
K.X=KX+1 
XLO=XHI 
GO 10 210 
220 XFRAC=, 0S 
GO TO 300 

239 XFRAr;=. 99999S 
GO TO 300 

240 XFRfiC=. 0S 
GCl 1 U 260 

250 XFRfiC=. 99999S 
1 = 1-1 

260 CALL MOOR': M. XI N.. VIM) 

GO TO 300 

280 XFRAC= •: X 1 N-XLO ) / < XH I -XLO ) 
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30V3 N<S>=..T 
«■'?•> = I 
LZ=LX+NPRn[) 
kz=lz+?4:kp 

Z50 ZL=F < LZ > + V I NCR>+= < F < KZ > -F < I Z > > 

ZH=F I.Z+1 > + V I NCR:+: C F < KZ+i > -F C LZ+1 > > 
riRP=ZL+XFRFlC>t= < ZH-ZL > 

RETURN 

400 LZ=LZ+NPROD 
KZ=L7+NKP 
GO TO 350 
EfJD 


SCFILFD FRfiCTION FUNCTION MFlPL<F> 

SCOLED FRFICTION MFiP.. f-ifiPL. F. XTN, VI N 

C KIN PND VI N FIRE DUI-1MV RRGUHEN I S RNI:- DO NOT RFFEC1 RESULTS 

N=0 

MRI ‘L=MRP''N, F, KIN, V1N> 

RETURN 

END 


SUBROUT I NE MOOR < N, K 1 N, V I N > 

SCRLED FRRCTION KIN, VIN, K, V 

COMMON/MRPVRL/MH. K, V 

LOGICRL CL9 

IFCN EG!. 0> GO TO 100 

CRLL QRSLLCe, CL9, IER> 

CRLL G'RSLL<6, CL9, IER> 

IF'.0::L9> RE IIJRN 

CRLL QWCLLO, . TRUE. , IER> 

MN=N 

K=KTN 

V=VIN 

RETURN 

100 MR n E < 1 , 400 MN . K, V 

400 FORMRT<.^‘?HMRP NO. , 13, 20H INPUTS OU I OF RRNGE/EHKTN = , S7, 
1 SH VI N = ,S7/> 

CRLL QWCI.LC9, . FRLSE. , IER> 

RETURN 

END 


SUBROUTINE NOZZLCP0, P7, P0QT7, T7, R7, RS, CD7, CVS, W/, F8> 

DIMENSION Nl<3>, NR<3>, M?<3> 

SCRLED FRRCTION XK 15 >, VI < 15 X2 < 15 >, V21 < 15 >, V22 C 15 K3 < 15 > , 

1 V3K:15), V32<15>, V33<15> 

SCRLED FRRCTION P0, P7, P0QT7, T7, R7, R8, CD7, CVS, W7, FS 

SCRLED FRRCTION XF, R8Q7, PEQ7, RTXX, PTOL, REQTXX, XMX, XMN. POVQX, PVQX, 

1 POVQOX, PVQT, PE, XSHFT, VE, FUNl, FUNIL, DC<125> 

COMMON KCOEF/ DC 

DRTR Nl/6, 1, 15X, N2X7, 1, 15/, N 5/8, 1, 15/ 

DRTR XI /. 50000S, . 50035S, . 50155S, . 50645S, . 51185S, . 52350S, . 53405S, 
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c 


c 


c 


c 


i; 


i . 54715S, . 567S05, . 53410S. . 643203/ 
DATA VI /. 52S28S/ . 54691S/ . 5657SS/ 
1 . 72092S/ . 752A3S/ . 784005/ . 825895/ 

DATA X2 /. 528285/ . 546915/ . 565785/ 
1 . 720925/ . 752835/ . 784005/ . 825895/ 

DATA V21 /. 500005/ . 487405/ . 474625/ 
1 . 365895/ . 341875/ . 317405/ . 282465/ 

DATA V22 /. 500005/ . 500355/ . 501555/ 
1 . 547155/ . 567805/ . 594105/ . 643205/ 

DATA X3 /. 500005/ . 503955/ . 508705/ 
1 . 557455/ . 588105. . 605755/ . 646105/ 

DATA V31 /. 200005/ . 220005/ . 230005/ 
1 . 280005/ . 300005/ . 310005/ . 330005/ 

DATA Y32 /. 528285/ . 468355/ . 439835/ 
1 . 314245/ . 272405/ . 253205/ . 218395/ 

DATA V33 /. 500005/ . 540625/ . 560155/ 
1 . 649955/ . 682305/ . 697755/ . 727205/ 

XF-. 05 

-t:++CFiLC AkI-.A RATIO 

R.';;!07 = DC<110> A8/A7 

PE: 07=^ FUNK NT.. XI/ A8Q7> 

+.++SUf '"F.ON I C FLOW 
RVXX =A7 

ir -'P0QT7 . LT. PEQ7> GO TO 10 
XMX-FUIJT CN2/ X2. P0QT7> 

P TOL = SA!7;5>;P0Q17 - PEQ7> 

IF-.'PTOl.. LE . 09055> GO TO 100 
REO r:>:X=FUNT I <r.X2> 

RTXX = A8/AEQTXX 


700905/ . 

750355/ . 

911455/ . 

9999957 

604125/ . 

630005/ . 

669055/ . 

695075/ 

859585/ . 

880655/ . 

923125/ . 

936115/ 

604125/ . 

630005/ . 

669055/ . 

695075/ 

859585/ . 

880655/ . 

923125/ . 

936115/ 

448515/ . 

430705/ . 

403385/ . 

384795/ 

251925/ . 

231285/ . 

184105/ . 

166985/ 

506455/ . 

'511855/ . 

523505/ . 

534055/ 

700905/ , 

750355/ . 

911455/ . 

999995/ 

515205/ . 

523355/ , 

533155/ . 

544505/ 

719505/ . 

777605/ , 

880005/ . 

999932/ 

240005/ . 

250005/ . 

. 260005/ . 

, 270005/ 

360005/ 

380005/ . 

, 410005/ . 

, 439425/ 

412385/ 

386065/ , 

, 360925/ 

. 336975/ 

17 4045/ 

149245/ 

. 118235/ 

. 093965/ 

579155/ 

597605/ 

. 615555/ 

. 633005/ 

768005/ 

. 793055, 

. 827655/ 

. 858355/ 


GO TO 100 

•^<-^'.+SIJPER50NIC FLOW AND SONIC FLOW FOR CONV-ONLV NOZZLE 
10 IF <RSQ7 . LE. 0. 55 > GO TO 30 
XMN=FUNKN3/ X3/ A8Q7> 

PEQ7=FUN1L<X3> 

POVQX = <XNN=+«<XMN/. 72217S-. 079585 >/. 4S>+. 089565 

PVQX = <XMN+<XMN/. S54H4S>/. 4S>-. 01667S 

POVQOX = <XMNh*<-XMN/. 876005+0. 401635 >/. 2S>+0. 836265 

PVQT = <PVQX + POVQOX > /POVQX 

IF <P0QT7 . GT. PVQT) GO TO 40 

XMX=FUN1L<X3) 

+REG1ME V 

20 PE = P7 PEQ7 / DC <111) 

XF = <A8*<PE-P0))+DC<112) 

GO TO 100 

30 XNX = 0. 55 


GO TO 20 
•+REG1MF. Ill 


40 IF< 

5ABS<Ai 

SQ7-. 

56345S) 


LE 

. 0005 

S> Gi 

□ TO 50 


XMX 

:= . S55: 

35S + 

<P0QT7 


— 

. 412545 

> + , 

, 174185 

+ P0QT7 

X5HF1' = 0, 

. 0S 








IF 

< A8Q7 

. GT. 

. es'> xs 

HF 

T 

= . 5175 

55 + 

ASQ7 •+>: 

;:A8Q7'+-<A' 

1 +. 

";P”:S0S 

) + <-. 

44243:5 

)/ 

. 2 

55 




IF 

a\fif:Q7 

. LT. 

. €S‘) X'-: 

HF 

1 

= 53 

T- T o *r 

i 

+ASQ7)+. 

319105 

xm:=-^ 


SHFT 









GO TO 100 


-»r' 
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bd KMX= . SSmSHiS+<peiG!T?'-+:ir. 414SSS;:'+. 17255S+PH1QT? > > /. 4S 
C :+”4:+.V£L0C1TV. PLOW. RND THRUST CflLCULflTIONS 
iOO Vh = KMX+SSi:!PT<T7>:+:CVS/L:'C'::il3::? 

105 W.^ = •;;flTKX-+-P7>..'SSQPT<T7> =+= CD7 / DC<:il5> 

FS = <W7+-V£ >.'DC<ilS>+,XF 
500 PETIJRW 
EHL- 


SUBROUTINE PPOCOMCT. FR. CP. CV. CRN. H> 

SCRLFD FRRCTION T. FR. CP. CV. GRM. H. CPR. HR. RMW. R. TD. CPF. HF 

IFCr. GE. . 46000S> GO TO 50 

IF<!T. GE. . £4000S^ GO TO 40 

CPR=. 4S06SS-C. 12464S-T.'’. 9S246S>+T 

HR=. 00176S+'L 5655SS+. 14075S=+T>+T 

GO TO 60 

40 CPR=. 4052SS+‘L 52545S-. SSISI'S^+'T^'+T 
HR=. 00il9S+<. 56298S+. 16150S+T +T 
GO TO 60 

50 CPR=. 46063S+'L 30024S-. 15378S+T>+T 
HR=-. 01S70S+';, 64968S>. 06700S=t'T>+T 
60 RMW=. 57940S-. 00144S+FR 
R=. 07945S/RMW 
TD=. 70000S-T 

CPF=. 93330S-C:. 29350S+. 81750S+TD>+TD 
HF=-. 03305S+'L 63624S+. 38625S+-T 

H=‘'. 6666.7S-^'HR+. 10667S'+HF+FR’.>/<'. 50000S+. 04000S=+=FR':‘ 

CP=<. 80000S+CPR+. 12S00S+CPF:+TR:;> S 0000 S+. 06400S=+=FR> 

CV=CP-R 

GRM=. 50000S:+=CP.-‘CV 

PE I URN 

ENU 


BUBROU r I NE TRRT N. PRC. GRM. TP. > 
D I MENS I ON N1 < 3 > . N2 < 3 > . N3 < 3 > 


SCRLFU FRRCTION GRM. TP. PRC. 
DRTR Nl/5. 1. 2b.-’. N2.-’5. 1. 25.-'. 

S. C. TRC 
N3.-’5. 1. 

. Xi‘'.25>. 
2S.--’ 

Vl'^25> . F 

JNl 


DRTR XI 

. 06iS67S/ . 

G7332S, . 

0S000S. 

.'05*2335. 

. 106675^ 

12000S. . 

13333 

1. . 

. i*Si567S.» . 

20000S. . 

2i3333Sj 

. 266675^ 

. 300005. 


3t*557 

2 . 4O000S. 

. 46667S. . 


60000S. 

. 666G7S.. 

. 73333S. . 

S0000S. . 

8666V- 

DRTR VI 

. 00000S. . 

02001S. . 

03S72S. 

. 072525. 

. 10367S. . 

13169S. . 

15749 

1 . 1S145S. 

. 21452S, . 

26362S. . 

30699S. 

345555. 

. 38152S. . 

. 41424S. . 

44462 

2 . 47301S. 

3 . 78575S. 

. 52492S. . 
. 81437S.-’ 

57159S. . 

61412S. 

. 6532S5. 

. 6S964S. . 

, 72362S. . 

75557 


150 IFt.GRM. b'E. . 67500S J* GO TO 2-00 
IF-; PRC. GE. . 33333S;' GO TO 200 
S-. 50526S+. 77229S+PP.r;-. 95164S+PRC+PRC 
GO TO 700 

200 S=. 58745S+. 23850S+PRC-. 09000S+PRC+PPr; 

GO TO 700 

300 IF ■.'PRC. GE. . 33333S> GO TO 400 

S=. 45911S+. S9475S=+P'RC-'.'PRC+PRC 92895S 
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400 

700 


GO TO 700 

S-. 55215'-:+. 2'93i'5S+PRC-. 10'=<lL=^'2.+PRr;+PRC 
C=':; C. 67500'5-GflM>+S>/. 0250OS 
IF<:'.N NE. 1> GO TO 750 
TRC=FlJtii'::Nl,. XI,. PRO 
GO TO '300 
750 IF':;N. NE. 2::* GO TO 800 

trc=fijni>::n2.. :«:i.. PRn> 

GO 'I 0 '800 

800 TRr;=FIJNl>:;Nj:,. PRO 

'800 TR='nRC+>:'. SOOOOF-. 16000'8+O >/. 80000'8 
RETURN 
Ef^D 


Fortran Symbols 


BTASK.- All 
otherwise noted. 

variables are scaled fractions unless 

X(k) 

array of the desired (actual) value of 
operating point data for selected 
engine variables, k= \ to 45 

AE 

exhaust nozzle exit area 

XMN 

Mach number 

ALT 

altitude 

XNH 

high-spool rotor speed 

A8 

exhaust nozzle throat area 

XNL 

low-spool rotor speed 

CDN 

exhaust nozzle flow coefficient 

Y(k) 

array of the calculated value of oper- 

CIVV 

fan variable-geometry parameter 

ating point data for selected engine 

CVN 

DH4 

exhaust nozzle velocity coefficient 
high-pressure-turbine enthalpy drop 


variables, k= \ to 45 

DH41 

low-pressure-turbine enthalpy drop 

DATAIN 


ERR(R) 

error ratio array of the ratios of the 
individual elements of the Y array to 

F(k) 

map data array (scaled fraction), k 
determined by calling program 


the corresponding element in the X 

I 

integer index 


array, A: = 1 to 45 

INC 

number of points defining map (integer) 

ETAAB 

augmentor efficiency 

ISC(k) 

map scale factor format array (alpha- 

ETAB 

combustor efficiency 


numeric), /:= 1 to 4 

FNET 

net thrust 

IX(k) 

map X input data format array (alpha- 

FNM 

gross thrust 


numeric), /:= 1 to 4 

I 

integer index 

IY(k) 

map Y input data format array (alpha- 

JI(k) 

dummy arrays to fill in VARS common 


numeric), /:= 1 to 4 


block locations not used in BTASK, 
1= 1 to 13 

IZl(k) 

map Z1 output data format array 
(alphanumeric), A:= 1 to 4 

PI 

total pressure at station I 

IZ2(k) 

map Z2 output data format array 

RCVV 

compressor variable-geometry 


(alphanumeric), A: = 1 to 4 


parameter 

IZ3(k) 

map Z3 output data format array 

SF(k) 

scale factor array for selected engine 


(alphanumeric), /r= 1 to 4 


variables, corresponds to X array, 
A:=lto45 

IZ4(k) 

map Z4 output data format array 
(alphanumeric), A:= 1 to 4 

TAM 

sea-level ambient temperature 

J 

integer index 

TI 

total temperature at station I 

JF 

integer index 

WAI 

airflow rate leaving station I 

JMNPT 

integer index 

WF4 

combustor fuel flow rate 

JS 

integer index 

WF7 

augmentor fuel flow rate 

K 

integer index 

WGI 

gas flow rate leaving station I 

L . 

integer index 
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M 

N(k) 

NCOM 

NCV 

NFCT 

NF 

NPT 

TEST 

VALS(k) 

XSC 

XVALS(k) 

YSC 

ZSC(k) 


map number (integer) 
map integer array, k determined by 
calling program 

integer indicating rectilinear map data 
(nonzero for rectilinear map data) 
number of curves defining map 
number of functions in map 
integer index 

number of points per curve 
map data increment used for detecting 
overflows (scaled fraction) 
array used to store unsealed Y and Zj 
map data (floating point), A: = 1 to 25 
map scale factor for X input vari- 
able (floating point) 
array used to store unsealed X map 
data (floating point). A: = 1 to 25 
map scale factor for Y input vari- 
able (floating point) 
map scale factor for Z/ output vari- 
ables (floating point), A:= 1 to 4 


Yl(k) ambient pressure data array, k=\ 

to 11 

Y2(k) data array. A: = 1 to 10 

Y3(k) (Mq- l)>-35 data array, Ar= 1 to 7 

FUNl /FUNIL/FOOR,— A\\ variables are scaled 
fractions unless otherwise specified. 

F(k) function data array, k determined by 

calling program 
FUN 1 /FUN 1 L function output 

I X variable search index (integer) 

MN saved function number for out-of- 

range message (integer) 

N(k) function integer array, k determined 

by calling program 

NXP number of points defining function 

(integer) 

X saved value of XIN for out-of-range 

message 

XFRAC fraction of XI -X2 interval covered by 

XIN 


XIN 


FLCOND. 

-All variables are scaled fractions unless 

XI 

Otherwise specified. 

X2 

ETAI 

inlet efficiency 

HT 

altitude 


INLET 

inlet configuration option (integer) 

INITAL 

Nl(k) 

ambient pressure function integer 

C(k) 


array, K=l to 3 

DACI(k) 

N2(k) 

( 72 / 70 )'^^^^'^^“^^ function array integer 


array, k=l to 3 

DC(k) 

N3(k) 

(Mq- 1)1-35 function integer array, 



A:=l to3 

ERR 

PS 

ambient pressure 


PT 

fan inlet total pressure 

Fl(k) 

PTQS 

isentropic inlet pressure ratio 


TAS 

sea-level ambient pressure 

F2(k) 

TR35 



TS 

ambient pressure 

F3(k) 

TTQS 

inlet temperature ratio 

TT 

fan inlet total temperature 

F4(k) 

XMO 

Mach number 

XMP 

supersonic Mach number minus 1 

F5(k) 

XPP 

(Mo- 1)1.35 

Xl(k) 

altitude data array, k=l to 11 

F6(k) 

X2(k) 

inlet temperature ratio data array. 



A:=l to 10 

I 

X3(k) 

Mach-number-minus-1 data array. 

lAADR(k) 


Ar=I to7 


X input 

difference between XIN and ph value 
of^ 

difference between XIN and (7-l-l)th 
value of X 


correction factor array. A: = 1 to 50 
DAC initial condition array (scaled 
fraction), A:= 1 to 24 
corrected digital coefficient array 
(scaled fraction), A:= 1 to 125 

potentiometer setting error (scaled 
fraction) 

fan variable-geometry-effects map 
data array (scaled fraction), A:= 1 to 322 
compressor variable-geometry-effects 
map data array (scaled fraction), 
A:=l to 322 

fan map data array (scaled fraction), 
A:=l to 854 

compressor map data array (scaled 
fraction), A:= 1 to 518 
high-pressure-turbine map data array 
(scaled fraction), Ar= 1 to 224 
low-pressure-turbine map data array 
(scaled fraction). A: = 1 to 224 
integer index 

integrator address array (integer), 
A^=l to 16 
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IBELL 

terminal bell integer 

CIVV 

fan variable-geometry parameter 

lER 

hybrid linkage routine error flag 
(integer) 

CPAB 

average specific heat at constant pres- 
sure in augmentor 

IFRADR 

function relay address (integer) 

CPB 

average specific heat at constant pres- 

IG(k) 

integrator gain integer array, A: = 1 to 10 


sure in combustor 

INLET 

inlet configuration option (integer) 

CPHC 

average specific heat at constant pres- 

J 

integer index 


sure in compressor 

K 

KBH 

integer index 

high-pressure-turbine bleed flow indi- 

CPI 

specific heat at constant pressure at 
station I 

KBL 

cator (integer) 

low-pressure-turbine bleed flow indi- 

CSHIFT 

compressor variable-geometry effect 
on corrected flow 

cator (integer) 

CVAB 

average specific heat at constant vol- 

KBV 

overboard bleed flow indicator (integer) 

CVB 

ume in augmentor 

average specific heat at constant vol- 

Nl(k) 

fan variable-geometry-effects map 
integer array, A: = 1 to 5 

ume in combustor 

N2(k) 

compressor variable-geometry-effects 
map integer array, /:= 1 to 5 

CVHC 

average specific heat at constant vol- 
ume in compressor 

N3(k) 

fan map integer array, /:= 1 to 5 

CVN 

exhaust nozzle velocity coefficient 

N4(k) 

compressor map integer array, A: = 1 to 5 

CVI 

specific heat at constant volume at 

N5(k) 

high-pressure-turbine map integer 


station I 


array, /:= 1 to 5 

DACI(k) 

DAC initial condition array, /:= 1 to 24 

N6(k) 

low-pressure-turbine map integer 
array, /:= 1 to 5 

DC(k) 

corrected digital coefficient array, 
A:=l to 125 


PADR(k) 

PSET 


potentiometer address array (alpha- 
numeric), /:= 1 to 53 
actual potentiometer setting (scaled 
fraction) 


DH4 

DH41 

DTQWI 


high-pressure-turbine enthalpy drop 
low-pressure-turbine enthalpy drop 
specific temperature derivative at sta- 
tion I 


PVAL(k) calculated potentiometer setting 

(scaled fraction), /:=! to 53 

XC(k) map scale factor array for X input 

variables, /:= 1 to 6 

YC(k) map scale factor array for Y input 

variables, k=\ to 6 

ZC(k) map scale factor array for Z output 

variables, /:= 1 to 12 

LEVELS 

lER hybrid linkage routine error flag 

(integer) 

PB5 user-set pushbutton number 5 (logical) 

LOOP. -AW variables are scaled fractions unless 

otherwise noted. 

AE exhaust nozzle exit area 

ALT altitude 

ALTM FLCOND-rescaled altitude 

A8 exhaust nozzle throat area 

CC(k) correction factor array (floating point), 

k= \ to 50 

CDN exhaust nozzle flow coefficient 


DXNH 

high-rotor-speed derivative 


DXNL 

low-rotor-speed derivative 


DWI 

stored mass derivative at station I 


ETAAB 

augmentor efficiency 


ETAB 

combustor efficiency 


ETAHCM 

compressor efficiency 


ETAIFM 

fan inside-diameter efficiency 


ETAOFM 

fan outside-diameter efficiency 


FARIM 

fuel-air ratio at station I 


FGM3 

function of specific heat ratio at 
tion 3 

sta- 

FGPT3 

compressor discharge bleed 
parameter 

flow 

FNET 

net thrust 


FSHIFT 

fan variable-geometry effect on 
rected flow 

cor- 

Fl(k) 

fan variable-geometry-effects 
data array, 1 to 322 

map 

F2(k) 

compressor variable-geometry-effects 
map data array, /: = 1 to 322 

F3(k) 

fan map data array, Ar= 1 to 854 


F4(k) 

compressor map data array, /: = 1 to 518 
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F5(k) 

high-pressure-turbine map data array, 
k= \ io 224 

F6(k) 

low-pressure-turbine map data array, 
k= \ to 224 

GMAB 

average specific heat ratio in augmentor 

GMB 

average specific heat ratio in combustor 

GMHC 

average specific heat ratio in 
compressor 

GMI 

specific heat ratio at station I 

GMIM 

specific heat ratio minus 1 at station I 

HA 

average specific enthalpy in 
augmentor 

HABM 

PROCOM-rescaled augmentor specific 
enthalpy 

HB 

average specific enthalpy in combustor 

HBM 

PROCOM-rescaled combustor specific 
enthalpy 

HHCM 

PROCOM-rescaled compressor specific 
enthalpy 

HP4 

high-pressure-turbine enthalpy drop 
parameter 

HP41 

low-pressure-turbine enthalpy drop 
parameter 

HI 

specific enthalpy at station I 

HIM 

PROCOM-rescaled specific enthalpy at 
station I 

lER 

hybrid linkage routine error flag 
(integer) 

INLET 

inlet configuration option (integer) 

KBH 

high-pressure-turbine bleed flow 
indicator (integer) 

KBL 

low-pressure-turbine bleed flow 
indicator (integer) 

KBV 

overboard bleed flow indicator (integer) 

Nl(k) 

fan variable-geometry effects map 
integer array, /: = 1 to 5 

N2(k) 

compressor variable-geometry-effects 
map integer array. A: = 1 to 5 

N3(k) 

fan map integer array, k- \ to 5 

N4(k) 

compressor map integer array, k=\ io 
5 

N5(k) 

high-pressure-turbine map integer 
array, k=\ to 5 

N6(k) 

low-pressure-turbine map integer 
array. A: = 1 to 5 

N7(k) 

nozzle functions integer array, /:= 1 to 

3 

PRHC 

TRAT-rescaled compressor pressure 
ratio 

PRIF 

TRAT-rescaled fan inside-diameter 
pressure ratio 


PROF 

TRAT-rescaled fan outside-diameter 
pressure ratio 

PI 

total pressure at station I 

POA 

FLCOND-rescaled ambient pressure 

POQT7 

exhaust nozzle pressure ratio 

P2A 

FLCOND-rescaled fan inlet total 
pressure 

P22Q2M 

fan inside-diameter pressure ratio 

RCVV 

compressor variable-geometry 
parameter 

TAM 

sea-level ambient temperature 

TAVAB 

average total temperature in 
augmentor 

TAVB 

average total temperature in 
combustor 

TAVHC 

average total temperature in 
compressor 

TRHCMl 

compressor temperature rise parameter 

TRIFMl 

fan inside-diameter temperature rise 
parameter 

TROFMl 

fan outside-diameter temperature rise 
parameter 

TOA 

FLCOND-rescaled ambient tem- 
perature 

TI 

total temperature at station I 

TIM 

PROCOM-rescaled total temperature 
at station I 

T2A 

FLCOND-rescaled fan inlet total 
temperature 

WAR2 

fan corrected flow rate 

WAR2M 

nominal fan corrected flow rate 

WAR22 

compressor corrected flow rate 

WAI 

airflow rate leaving station I 

WBLHT 

high-pressure-turbine cooling bleed 
flow rate 

WBLLT 

low-pressure-turbine cooling bleed 
flow rate 

WBLOV 

overboard bleed flow rate 

WF4 

combustor fuel flow rate 

WF7 

augmentor fuel flow rate 

WGI 

gas flow rate leaving station I 

WG7M 

NOZZL-rescaled exhaust nozzle flow 
rate 

WP4 

high-pressure-turbine flow parameter 

WP41 

low-pressure-turbine flow parameter 

XC(k) 

map scale factor array for X input 
variables (floating point), A:=l to 6 

XMN 

Mach number 

XMNM 

FLCOND-rescaled Mach number 

XNH 

high-spool rotor speed 
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MAP output at XLO.YIN 


XNL 

low-spool rotor speed 

XIX 

input for map number I 

YC(k) 

map scale factor array for Y input 
variables (floating point), /:= 1 to 6 

YI 

Y input for map number I 

Y71(k) 

exhaust nozzle flow coefficient 
function data array, k=\ to 15 

Y72(k) 

exhaust nozzle velocity coefficient 
function data array, k=\ to 15 

ZC(k) 

map scale factor array for Z output 
variables (floating point), A: = 1 to 12 

MAP /MAPL/ MOOR, - A\\ variables are scaled 

fractions unless otherwise specified. 

F(k) 

map data array, k determined by 
calling program 

I 

X variable search index (integer) 

J 

Y variable search index (integer) 

KX 

map data array index corresponding to 
XU, l)(integer) 

KZ 

map data array index corresponding to 
Z(7, J+ l)(integer) 

LZ 

map data array index corresponding to 
Z(7, 7)(integer) 

MAP/MAPL 

map output 

MN 

saved map number for out-of-range 
message (integer) 

N(k) 

map integer array, k determined by 
calling program 

NPROD 

number of points defining map 

NXP 

number of points per curve (integer) 

NYC 

number of curves in map (integer) 

X 

saved value of XIN for out-of-range 
message 

XFRAC 

fraction of XHI -XLO interval 
covered by XIN 

XHI 

(7+ l)th breakpoint on interpolated 
YIN curve 

XIN 

X input 

XLO 

7th breakpoint on interpolated YIN 
curve 

Y 

saved value of YIN for out-of-range 
message 

Yl 

difference between YIN and 7 th value 
of Y in map 

Y2 

difference between YIN and (7+l)th 
value of Y in map 

YIN 

y input 

YINCR 

fraction on Y(J -h 1)- Y(J) interval 
covered by YIN 

ZH 

map output at XHI,YIN 


ZL 


NOZZL. - All variables are scaled fractions unless 
otherwise specified. 

AEQTXX ratio of exit area to area at which sonic 

flow is reached 

ATXX reduced throat area that results in sonic 

flow 


A7 

A8 

A8Q7 

CD7 

CV8 

DC(k) 


throat area 
exit area 
expansion ratio 
flow coefficient 
velocity coefficient 

corrected digital coefficient, k=\ to 
125 


F8 gross thrust 

Nl(k) critical pressure ratio function integer 

array, = 1 to 3 

N2(k) subsonic functions integer array, A:=l 

to 3 


N3(k) 

PE 

PEQ7 

PTOL 


PYQT 

PYQX 

PO 

POQT7 

POYQX 


supersonic functions integer array, 
A:=l to 3 

exit plane pressure 
critical pressure ratio 
difference between computed exit 
plane pressure and ambient pressure 
for subconic exit flow 
pressure ratio at which shock is in exit 
plane 

static pressure ratio across shock 
ambient pressure 
ambient to total pressure ratio 
total to static pressure ratio across 
shock 


POYQOX 

T7 

VE 

W7 

XF 

XMN 

XMX 

XSHFT 

Xl(k) 

X2(k) 

X3(k) 


total pressure ratio across shock 
inlet total temperature 
exit velocity 
mass flow rate 

pressure-area term in gross thrust 
equation 

Mach number upstream of shock 
dimensionless velocity 
area ratio shift on dimensionless 
velocity— pressure ratio fit 
subsonic flow area ratio data array, 
Ar=l to 15 

subsonic flow pressure ratio data 
array, k= \ to 15 

supersonic flow area ratio data array, 
*=1 to 15 
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Yl(k) 

critical pressure ratio data array, A:= 1 
to 15 

Y21(k) 

subsonic dimensionless velocity data 
array, A:= 1 to 15 

Y22(k) 

AEQTXX data array, k= \ to 15 

Y31(k) 

XMN data array, Ar= 1 to 15 

Y33(k) 

supersonic dimensionless velocity data 
array, k=\ to 15 

PROCOM. 

-All variables are scaled fractions. 

AMW 

molecular weight 

CP 

specific heat at constant pressure 

CPA 

specific heat at constant pressure of air 

CPF 

specific heat at constant pressure of 
fuel 

CV 

specific heat at constant volume 

FA 

fuel-air ratio 

GAM 

specific heat ratio 

H 

specific enthalpy 

HA 

specific enthalpy of air 

HF 

specific enthalpy of fuel 

R 

gas constant 


T total temperature 

TD 3500* R minus T 

THAT. -AW variables are scaled fractions unless 

otherwise specified. 

C variable specific heat ratio effect on 

(Ar/T)id 

gam average component specific heat ratio 

N component identifying integer, N = 1 

to 3 

Nl(k) fan inside-diameter function integer 

array, A: = 1 to 3 

N2(k) fan outside-diameter function integer 

array, k=\ to 3 

N3(k) compressor function integer array, 

Ar= 1 to 3 

PRC component pressure ratio 

S pressure ratio effect on specific heat 

ratio shift 

TR (Ar/Did 

TRC (A777)id for specific heat ratio of 1 .35 

2^1 (k) component pressure ratio data array, 

A:=l to 25 

Yl(k) function data array, k= \ to 25 
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Appendix E 

Host Digital Program 



Flowchart of host digital program 


Source Listings 


00001 00 
0000200 
0000300 
0000^^00 
000 0500 
0000600 
0000700 
0000800 
0000900 
0001000 
0001100 
0001200 
0001300 
0001^00 
0001500 
0001600 
0001700 
0001800 
0001900 
0002000 


c 

c 

C MAIN PROGRAM FOR GENERALIZED TURBOFAN SIMULATION 

INTEGER PLA,AADR,APRINT 
REAL KBLWHT,KBLWLT 
COMMON /IO/IR>IW,IPNCH 
COMMON /INL/INLET 

COMMON /NMAPS/FK322) ,F2(322) ,F3(85<^) ,F5(22<i) ,F6(224) , - 

1 Nl(5) ,N2(5) ,N3(5),N4(5) ,H5(5) ,N6(5) 

COMMON /IVARS/ IP, JP, JPA, JPD,KBH,KBL,KBV,NAUG,NDRY,NTOTAL,PLA 
COMMON /AVARS/ CC( 50 ) , DACK 24 ) , DC( 125 ) , XC( 6 ) , YC( 6 ) , ZC( 12 ) , UDC( 125 ) 
COMMON /ANVARS/ AQLl 3 , AQL6 , SFT , SFWl 3 , SFW3 , SFW4 , SFW4 1 , SFW6 , SFW7 , 

1 W13,W3,W4,W41,W6,W7,SW13,SW3,SW4,SU41,SM6,SW7, 

A V13,V3,V4,V41,V6,V7,XIF1,XIL,PADR(53),PVAL(531, 

B IG(10),AADR(16) 

COMMON /RVARS/ CBLHRC 50 ) , CBLLRC 50 ) , CBLVRC 50 ) , DH4QRC 50 ) , DH4TRC 50 ) , - 
A DH41QRC50) ,DH41TR(50) ,DP13R(50) ,DP6R(50) ,ETAABR(50) 

B ETABR(50),FGR(50),P0R(50),P2R(501,P22R(50),- 

C P5R(50),T13PR(50),T2R(50) ,T22R(50) ,T3PR(50),- 
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0002100 

0002200 

0002300 

0002^00 

0002500 

0002600 

0002700 

0002800 

0002900 

0003000 

0003100 

0003200 

0003300 

0003^^00 

0003500 

0003600 

0003700 

0003800 

0003900 

0004000 

0004100 

0004200 

0004300 

0004400 

0004500 

0004600 

0004700 

0004800 

*0004900 

0005000 

0005100 

0005200 

0005300 

0005400 

0005500 

0005600 

0005700 

0005800 

0005900 

0006000 

0006100 

0006200 

0006300 

0006400 

0006500 

0006600 

0006700 

0006800 

0006900 

0007000 

0007100 

0007200 

0007300 

0007400 

0007500 

0007600 

0007700 

0007800 

0007900 

0008000 

0008100 

0008200 

0008300 

0008400 

0008500 

0008600 

0008700 

0008800 

0008900 

0009000 

0009100 

0009200 

0009300 


COMMON /SVARS/ 


WA2R(50),WA22R(50),WA3R(50),WG4R(501,WG41R(50;,- 
WG7R ( 50) 

BSCIVV , BSRCVV , SFA8 , SFAE , SFALT , SFCIVV , SFDH4 , SFDH4 1 , - 
SFFG , SFFN , SFPO , SFPl 3 , SFP2 , SFP22 , SFP3 , SFP4 , SFP4 1 , - 
SFP5 , SFP6 , SFP7 , SFRCVV , SFTO , SFTl 3 , SFT2 , SFT22 , SFT3 , - 
SFT4 , SFT4 1 , SFT6 , SFT7 , SFVEL , SFWAl 3 , SFWA2 , SFWA2 2 , - 
SFWA3 , SFWF4 , SFWF7 , SFWG4 , SFWG4 1 , SFHG6 , SFWG7 , SFXtIN, - 
SFXNH f SFXNIi 

COMMON /XVARS/ A1 ( 50 ) , A2(50 ) , A3(50 ) , A4(50 ) , A5(50 ) , A6 (50 ) , A7(50 ) . - 

A81(50),A9(50),A10(50),A11(50),A12(50),A13(50), 
A14(50),A15(50),A16(50),A17(50),A18(50),A19(50), 
A20(50),A21(50),A22(50),A23(50),A24(50),A25(50), - 

A26(50 ) 

Al( 


EQUIVALENCE 

(A8 

, Al( 

1)),(AE 

1 

(ALTM 

, Al( 

4)) 

EQUIVALENCE 

(CD7 

, A3( 

1)),(CDN 

2 

(CP13 

, A3( 

4)) , (CP13P 

2 

(CP22 

, A3( 

7)),(CP3 

3 

(CP4 

, A3( 

10)),(CP41 

4 

(CP7 

, A3( 

13)), (CPAB 

5 

(CPHC 

, A3( 

16)),(CSHIFT 

EQUIVALENCE 

(CV13P 

, A3( 

19)),(CV2 

7 

(CV3 

, A3( 

22)),(CV3P 

8 

(CV41 

, A3( 

25)), (CV6 

9 

(CV8 

, A3( 

28)),(CVAB 

A 

(CVHC 

, A3( 

31)), (CVN 

EQUIVALENCE 

(DH4 

, A4( 

1)), (DH41 

1 

(DTQW3 

, A4( 

4)), (DTQM4 

2 

(DTQM6 

, A4( 

7)),(DTQM7 

3 

(DM3 

, A4( 

10)), (DM4 

4 

(DM6 

, A4( 

13)), (DM7 

5 

(DXNL 

, A4( 

16)) 

EQUIVALENCE 

(ETAAB 

, A5( 

1)),(ETAB 

1 

(ETAIFM, A5( 

4)), (ETAOFM 

EQUIVALENCE 

(FAR4M 

, A6( 

1)), (FAR41M 

1 

(FAR7M 

, A6( 

4)),(FG 

2 

(FGPT3 

, A6( 

7)),(FN 

3 

(FNM 

, A6( 

10)),(FSHIFT 

EQUIVALENCE 

(GM13 

, A7( 

1)),(GM13M 

1 

(GM2 

, A7( 

4)),(GM22 

2 

(GM3M 

, A7( 

7)) , (GM3P 

3 

(GM41 

, A7( 

10)),(GM^M 

4 

(GM6 

, A7( 

13)), (GM6M 

5 

(GM7M 

, A7( 

16)),(GMAB 

6 

(GMHC 

, A7( 

19)) 

EQUIVALENCE 

(H13 

,A81( 

1)),(H13M 

1 

(H13PM 

,A81( 

4)), (H2 

2 

(H2M 

,A81( 

7) ) , (H22M 

3 

(H3M 

,A81( 

10)), (H3P 

4 

(H4 

,A81( 

13)),(H41 

5 

(H41M 

,A81( 

16)), (H6 

6 

(H7 

,A81( 

19)),(H7M 

7 

(HABM 

,A81( 

22)), (HB 

8 

(HHCM 

,A81( 

25)),(HP4 

EQUIVALENCE 

(KBLMHI 

■,A11( 

1)),(KBLMLT 

EQUIVALENCE 

(PE 

,A16( 

1)),(P0 

1 

(P0QT7 

,A16( 

4)),(P13 

2 

(P2A 

,A16( 

7)),(P22 

3 

(P3 

,A16( 

10)), (P4 

4 

(P5 

,A16( 

13)), (P6 

5 

(PRHC 

,A16( 

16)),(PRIF 

EQUIVALENCE 

(RCVV 

,A18( 

1)), (RTT2 

1 

(RTT4 

,A18( 

4)),(RTT41 

EQUIVALENCE 

(TOA 

,A20( 

1)),(T13 

1 

(T13P 

,A20( 

4)),(T13PM 

2 

(T2A 

,A20( 

7)),(T2M 

3 

(T22M 

,A20( 

10)), (T3 

4 

(T3P 

,A20( 

13)),(T3PM 

5 

(T4M 

,A20( 

16)),(T41 

6 

(T6 

,A20( 

19)),(T6M 

7 

(T7M 

,A20( 

22)), (TAM 

8 

(TAVB 

,A20( 

25)),(TAVHC , 

9 

(TRIFMl 

,A20( 

28)), (TROFMl, 


2)), (ALT 


A3( 2)),(CIVV , 

A3( 5)),(CP2 

A3( 8)),(CP3P , 

A3( 11)),(CP6 , 

A3( 14)),(CPB 
A3( 17)),(CV13 , 

A3( 20)),(CV22 , 

A3( 23)),(CV4 , 

A3( 26)),(CV7 , 

A3( 29)),(CVB , 

A3( 32)) 

A4( 2)),(DTQW13, 

A4( 5)),(DTQW41, 

A4( 8)),(DW13 , 

A4( 11)),(DW41 , 

A4( 14)),(DXNH , 

A5( 2)),(ETAHCM, 
A5( 5)) 

A6( 2)),(FAR6M , 

A6( 5)),(FGM3 , 

A6( 8)),(FNET , 

A6( ID) 

A7( 2)),(GM13P , 

A7( 5)),(GM3 , 

A7( 8)),(GM4 

A7( 11)),(GM41M , 
A7( 14)),(GM7 , 

A7( 17)),(GMB , 


Al( 3)), 


A3( 

A3( 

A3( 

A3( 

A3( 

A3( 

A3( 

A3( 

A3( 

A3( 

A4( 

A4( 

A4( 

A4( 

A4( 


2)),(H13P 
5)),(H22 
8)),(H3 
11)),(H3PM 
14)),(H4M 
17)),(H6M 
20)), (HAB 
23)), (HBM 
26)),(HP41 
2 )) 

2)),(P0A 
5)),(P2 
8)), (P22Q2M,A16( 
11)),(P41 ,A16( 

14)), (P7 ,A16( 

17)), (PROF 
2)),(RTT22 
5)) 

2)),(T13M 
5)),(T2 
8)),(T22 
11)),(T3M 
14)), (T4 
17)),(T41M 
20)), (T7 

23)),(TAVAB 

26)),(TRHCM1,A20( 
29)) 


3)), 

6 )), 

9)), 

12 )), 

15)), 

18)) 

21 )), 

24)), 

27)), 

30)), 

3)), 

6 )), 

9)), 

12 )), 

15)), 


A5( 3)) 


A6( 

A6( 

A6( 

A7( 

A7( 

A7( 

A7( 

A7( 

A7( 


,A81( 

,A81( 

,A81( 

,A81( 

,A81( 

,A81( 

,A81( 

,A81( 

,A81( 

,A16( 

,A16( 


,A16( 

,A18( 

,A20( 

,A20( 

,A20( 

,A20( 

,A20( 

,A20( 

,A20( 

,A20( 


3)), 

6 )), 

9)), 

3)), 

6 )), 

9)), 

12 )), 

15)), 

18)), 

3)), 

6 )), 

9)), 

12 )), 

15)), 

18)), 

21 )), 

24)), 

27)) 

3)), • 
6 )), • 
9)), • 
12 )), ■ 
15)), • 
18)) 
3)), ■ 

3)), • 
6 )), ■ 
9)),- 
12 )),- 
15)), 
18)), 
21 )), 
24)), 
27)), 
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0009400 EQUIVALENCE (WA13 ,A23( 1)),(WA2 ,A23( 2)),(WA22 ,A23( 3)), - 

0009500 1 (WA3 ,A23( 4)),(WAR2 ,A23( 5)),(WAR2N ,A23( 6)), - 

0009600 2 (WAR22 ,A23( 7) ) , (WAR22M, A23( 8)),(WBLHT ,A23( 9)), - 

0009700 3 (WBLLT ,A23( 10)),(WBLOV ,A23( 11)),(WF4 ,A23( 12)),- 

0009800 4 (MF7 ,A23( 13)),(WG4 ,A23( 14)),(WG41 ,A23( 15)), - 

0009900 5 (WG6 ,A23( 16)),(WG7 ,A23( 17)),(WG7M ,A23( 18)), - 

0010000 6 (WP4 ,A23( 19)),(WP41 ,A23( 20)) 

0010100 EQUIVALENCE (X3 ,A24( 1)),(X4 ,A24( 2)),(X5 ,A24( 3)), - 

0010200 1 (X6 ,A24( 4)),(XF ,A24( 5)),(Xt1N ,A24( 6)), - 

“0010300 2 (XMNM ,A24( 7)),(XNH ,A24( 8)),(XNL ,A24( 9)) 

0010400 EQUIVALENCE (Y3 ,A25( 1)),(Y4 ,A25( 2)),(Y5 ,A25( 3)),- 

0010500 1 (Y6 ,A25( 4)) 

0010600 CALL CPUTIMCITIMl ) 

0010700 C^^^^^^SPECIFY I/O DEVICES AND PUNCH OPTION 

0010800 IR=5 

0010900 IW=6 

0011000 IPNCH=7 

0011100 READ(IR,500)JP,JPD,JPA 

0011200 URITE(IU,501) 

0011300 WRITE(IW,500) JP,JPD,JPA 

0011400 C»^»<>f^^^INLET OPTION AND READ MAP DATA 
0011500 READ(IR,500) INLET 

0011600 WRITE(IW,502) 

0011700 WRITE(IW,503) 

0011800 WRITE(IW,500)INLET 

0011900 READ(IR,504) KBLWHT, KBLWLT 

0012000 URITE(IW,502) 

0012100 WRITE(IW,505) 

0012200 URITE(IU,506) KBLWHT, KBLWLT 

0012300 WRITE(IW,502) 

0012400 CALL MAPIN 

0012500 C^^^^^^READ OPERATING POINT DATA (IP=1 DRY DESIGN, IP=NDRY+1 WET DESIGN) 

0012600 READ(IR,508) NDRY,NAUG 

0012700 NTOTAL=NDRY+NAUG 

0012800 DO 100 IP=l,NTOTAL 

0012900 READ(IR,507) PLA 

0013000 READ(IR,504) PO , P2 , P13 ,P22 ,P3 ,P4 , P41 , P5 , P6 , P7 ,TAM,T2 ,T13 , T22,T3 , - 

0013100 1 T4,T41,T6,T7,WA2,WA13,WA22,WA3,WG4,WG41,WG6,WG7,DH4,DH41,ETAB, 

0013200 2 ETAAB,FN,XNL,XNH,WF4,WF7,A8,AE,ALT,XMN,CDN,CVN,CIVV,RCVV,FG 

0013300 IPRINT=0 

0013400 CALL PRINT(IPRINT) 

0013500 IF (IP .NE. 1) GO TO 10 

0013600 KBH=1 

0013700 KBL=1 

0013800 KBV=1 

0013900 10 WBLHT=WG41-WG4 

0014000 WBLLT=WG6-WG41-WA13 

0014100 IF(KBH.EQ.O) WBLHT=0. 

0014200 IF(KBL.EQ.O) WBLLT=0. 

0014300 IF(IP.NE.l) GO TO 20 

0014400 IFCWBLHT.GT.O. ) GO TO 15 

0014500 KBH=0 

0014600 15 IFCWBLLT.GT.O.) GO TO 20 

0014700 KBL=0 

0014800 20 WBLOV=WA22-WA3-WBLHT-WBLLT 

0014900 IF(KBV.EQ.O) WBLOV=0. 

0015000 IF(IP.NE.l) GO TO 25 

0015100 IF(WBLOV.GT.O.) GO TO 25 

0015200 KBV=0 

0015300 25 WBLHT=WBLHT/( .2)<SFWA22) 

0015400 WBLLT = WBLLT/( . 02»<SFWA22) 

0015500 WBLOV=WBLOV/( .002^SFWA22) 

0015600 30 P0= PO/SFPO 

0015700 P2= P2/SFP2 

0015800 P13= P13/SFP13 

0015900 P22= P22/SFP22 

0016000 P3= P3/SFP3 

0016100 P4=P4/SFP4 

0016200 P41=P41/SFP41 

0016300 P5=P5/SFP5 

0016400 P6=P6/SFP6 

0016500 P7=P7/SFP7 


0016600 TAM=TAM/1000. 
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0016700 T2=T2/SFT2 

0016800 RTT2=SQRT(T2) 

0016900 T13=T13/SFT13 

0017000 T22=T22/SFT22 

0017100 RTT22=SQRT(T22) 

0017200 T3=T3/SFT3 

0017300 T<t=T4/SFT9 

0017900 RTT9=SQRT(T9) 

0017500 T91=T91/SFT91 

0017600 RTT91=SQRT(T91) 

0017700 T6=T6/SFT6 

0017800 T7=T7/SFT7 

0017900 WA2=WA2/SFWA2 

0018000 WA13=WA13/SFWA13 

0018100 WA22 = WA22/SFWA22 

0018200 WA3 = WA3/SFWA3 

0018300 DH9=DH9/SFDH9 

0018900 DH91=DH91/SFDH91 

0018500 WG9 = WG9/SFUG9 

0018600 WG91 = WG91/SFUG91 

0018700 WG6 = UG6/SFUG6 

0018800 WG7 = WG7/SFWG7 

0018900 FN =FN/SFFN 

0019000 FG = FG/SFFG 

0019100 XNL =XNL/SFXNL 

0019200 XNH =XNH/SFXHH 

0019300 WF9 = WF9/SFWF9 

0019900 WF7 = WF7/SFWF7 

0019500 A8 = A8/SFA8 

0019600 AE = AE/SFAE 

0019700 ALT = ALT/SFALT 

0019800 XMN = XMN/SFXMN 

0019900 CIVV = -(CIVV-BSCIVVl/SFCIVV 

0020000 RCVV = -(RCVV-BSRCVV)/SFRCVV 

0020100 IF ((IP .EQ. 1) .OR. (IP .EQ. NDRY+D) CALL DCOEF 

0020200 CALL ENGINE 

0020300 APRINT=0 

0020900 CALL ANALOG (APRINT) 

0020500 CALL PRINT(IPRINT) 

0020600 100 CONTINUE 

0020700 CALL ANALOG (APRINT) 

0020800 CALL PRINT(IPRINT) 

0020900 CALL CPUTI«(ITIM2) 

0021000 TIMEl = ITim 

0021100 TIME2 = ITIM2 

0021200 TOTAL = .001^(TIME2 - TIMED 

0021300 WRITE(2,600) TOTAL 

0021900 500 FORMAT((lX,8(Il,2X))) 

0021500 501 FORMAT(3X,37HPUNCH OPTION OVERALL, DIGITAL, ANALOG/) 

0021600 502 FORMAT(/) 

0021700 503 FORMAT(3X,12HINLET OPTION/) 

0021800 509 FORMAT(5F12.5) 

0021900 505 FORMAT(3X,36HFRACTION OF BLEED THAT PROVIDES WORK/,3X,25HHIGH TURBINE 

LOW TURBINE/) 

0022000 506 FORMAT( 3X, 2F12 . 5 ) 

0022100 507 FORMAT(9X,I3) 

0022200 508 FORMAT( ( IX, 2 (12 , 2X) ) ) 

0022300 600 FORMAT(/, ' TOTAL CPU TIME IS: ',G12.5,' SECONDS’,/) 

0022900 STOP 

0022500 END 

0022600 C 
0022700 C 
0 022800 
0022900 C 
0023000 C 

0023100 SUBROUTINE ANALOG (APRINT) 

0023200 C THIS ROUTINE READS ALL ANALOG COMPONENT INFORMATION 

0023300 C CALCULATES POT SETTINGS AND INTEGRATOR 

0023900 C GAINS AND PRINTS THE NECESSARY ANALOG 

0023500 C INFORMATION 

0023600 DIMENSION POT(5) 

0023700 INTEGER PLA, A ADR, GAIN( 1 0 ), APRINT, KBLWHT, KBLMLT 

0023800 COMMON /IO/IR,IW,IPNCH 
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COMMON /IVARS/ IP, JP, JPA, JPD,KBH,KBL,KBV,NAUG,NDRY,NTOTAL,PLA 
COMMON /RVARS/ CBLHR (50), CBLLR (50), CBLVR ( 5 0 ) , DH4QR ( 5 0 ) , DH4TR ( 5 0 ) , - 
A DHA1QR(50) ,DHA1TR(50) ,DP13R(50) ,DP6R(50) ,ETAABR(50 ) ,■ 

B ETABR(50) ,FGR(50) ,P0R(50),P2R(50),P22R(50) ,- 

C P5R(50) ,T13PR(50) ,T2R(50),T22R(50),T3PR(50),- 

D WA2R(50),WA22R(50) ,WA3R(50) ,WG'^R(50),WG^1R(50) 

E UG7R(50) 

COMMON /AVARS/ CC( 50 ) , DACK 24 ) , DC( 125 ) , XC( 6 ) , YC( 6 ) , ZC( 12 ) , UDC( 125 ) 
COMMON /SVARS/ BSCIVV , BSRCVV , SFA8 , SFAE , SFALT , SFCIVV , SFDH4 , SFDH4 1 , - 
A SFFG , SFFN , SFPO , SFP13 , SFP2 , SFP22 , SFP3 , SFP4 , SFP4 1 , - 

B SFP5 , SFP6 , SFP7 , SFRCVV , SFTO , SFTl 3 , SFT2 , SFT22 , SFT3 , - 

C SFT4 , SFT4 1 , SFT6 , SFT7 , SFVEL , SFWAl 3 , SFWA2 , SFUA22 , - 

D SFWA3,SFWF4,SFWF7,SFWG4,SFWG41,SFWG6,SFWG7,SFXMN, - 

E SFXNH > SFXNL 

COMMON /ANVARS/ AQLl 3 , AQL6 , SFT, SFUl 3 , SFW3 , SFW4 , SFW41 , SFW6 , SFW7 , 

1 W13,W3,W4,W41,U6,W7,SW13,SW3,SW4,SW41,SW6,SW7, 

A V13,V3,V4 ,V41,V6,V7,XIH,XIL,PADR(53) ,PVAL(53) , 

B IG(10),AADR(16) 

COMMON /XVARS/ A1 ( 50 ) , A2 ( 50 ) , A3 ( 50 ) , A4( 50 ) , A5( 50 ) , A6 (50 ) , A7 ( 50 ) , - 

1 A81(50),A9(50),A10(50),A11(50),A12(50),A13(50), 

2 A14(50),A15(50),A16(50),A17(50),A18(50),A19(50), 

3 A20(50),A21(50),A22(50),A23(50),A24(50),A25(50), - 

4 A26(50) 


(A8 

, Al( 

1)),(AE 

Al( 

2)), (ALT 

, AK 

3)), 

- 

(ALTM 

, Al( 

4)) 






(CD7 

, A3( 

1)),(CDN 

A3( 

2)),(CIVV 

, A3( 

3) ) , 


(CP13 

, A3( 

4)),(CP13P , 

A3( 

5)),(CP2 

, A3( 

6)), 


(CP22 

, A3( 

7)),(CP3 

A3( 

8)),(CP3P 

, A3( 

9)), 

- 

(CP4 

, A3( 

10)),(CP41 , 

A3( 

11)),(CP6 

, A3( 

12)), 


(CP7 

, A3( 

13)),(CPAB , 

A3( 

14)),(CPB 

, A3( 

15)), 

— 

(CPHC 

, A3( 

16)), (CSHIFT, 

A3( 

17)),(CV13 

, A3( 

18)) 


(CV13P 

, A3( 

19)),(CV2 

A3( 

20) ) , (CV22 

, A3( 

21) ) , 

- 

(CV3 

, A3( 

22)),(CV3P , 

A3( 

23)), (CV4 

, A3( 

24) ) , 

— 

(CV41 

, A3( 

25)),(CV6 

A3( 

26)),(CV7 

, A3( 

27)), 

— 

(CV8 

, A3( 

28)),(CVAB , 

A3( 

29) ) , (CVB 

, A3( 

30)), 

— 

(CVHC 

, A3( 

31)),(CVN 

A3( 

32) ) 




(DH4 

, A4( 

1)),(DH41 , 

A4( 

2)),(DTQW13 

, A4( 

3) ) , 

— 

(DTQW3 

, A4( 

4)),(DTQW4 , 

A4( 

5)),(DTQW41 

, A4( 

6)), 

— 

(DTQW6 

, A4( 

7)),(DTQW7 , 

A4( 

8)), (DW13 

, A4( 

9) ) , 

— 

(DW3 

, A4( 

10)),(DW4 , 

A4( 

11)),(DW41 

, A4( 

12)), 

- 

(DW6 

, A4( 

13)),(DW7 

A4( 

14)),(DXNH 

, A4( 

15)), 

- 

(DXNL 

, A4( 

16)) 






(ETAAB 

, A5( 

1)),(ETAB , 

A5( 

2)),(ETAHCM 

1 , A5( 

3)) , 

— 

(ETAIFM, A5( 

4)),(ETAOFM, 

A5( 

5)) 




(FAR4M 

, A6( 

1)),(FAR41M, 

A6( 

2)),(FAR6M 

, A6( 

3)), 

— 

(FAR7M 

, A6( 

4)),(FG 

A6( 

5)),(FGM3 

, A6( 

6)), 

— 

(FGPT3 

, A6( 

7)),(FN 

A6( 

8)), (FNET 

, A6( 

9)), 

— 

(FNM 

, A6( 

10)),(FSHIFT, 

A6( 

ID) 




(GM13 

, A7( 

1)),(GM13M , 

A7( 

2)),(GM13P 

, A7( 

3)), 

“ 

(GM2 

, A7( 

4)),(GM22 , 

A7( 

5)),(GM3 

, A7( 

6)), 

- 

(GM3M 

, A7( 

7)),(GM3P , 

A7( 

8)),(GM4 

, A7( 

9) ) , 

— 

(GM41 

, A7( 

10)),(GM4M , 

A7( 

ID), (GM41M 

, A7( 

12)), 

- 

(GM6 

, A7( 

13)),(GM6M , 

A7( 

14)),(GM7 

, A7( 

15)), 

- 

(GM7M 

, A7( 

16)),(GMAB , 

A7( 

17)),(GMB 

, A7( 

18) ) , 

— 

(GMHC 

, A7( 

19)) 






(H13 

,A81( 

1)),(H13M , 

A8K 

2)),(H13P 

,A8K 

3)), 

— 

(H13PM 

,A81( 

4)),(H2 

A8K 

5)) , (H22 

,A8K 

6)), 

- 

(H2M 

,A81( 

7)),(H22M , 

A8K 

8)),(H3 

,A8K 

9) ) , 

— 

(H3M 

,A81( 

10)),(H3P 

A8K 

1D),(H3PM 

,A8K 

12)), 

— 

(H4 

,A81( 

13)),(H41 

A8K 

14)),(H4M 

,A8K 

15) ) , 

— 

(H41M 

, A81( 

16)), (H6 

ASK 

17)) . (H6M 

, A8K 

18) ) , 

— 

(H7 

,A81( 

19)),(H7M 

A8K 

20)),(HAB 

,A8K 

2D), 

- 

(HABM 

,A81( 

22)), (HB 

ASK 

23)), (HBM 

,A8K 

24) ) , 

- 

(HHCM 

,A81( 

25)),(HP4 

ASK 

26)),(HP41 

,A8K 

27)) 


(KBLWHT.AIK 

1)),(KBLWLT, 

AIK 

2)) 




(PE 

,A16( 

1)),(P0 

A16( 

2) ) , (POA 

,A16( 

3)) , 

— 

(P0QT7 

, A16( 

4)),(P13 

A16( 

5)), (P2 

,A16( 

6)), 

- 

(P2A 

,A16( 

7)),(P22 ,A16( 

8)),(P22Q2M,A16( 

9) ) , 

— 

(P3 

,A16( 

10)), (P4 

A16( 

1D),(P41 

,A16( 

12)), 

- 

(P5 

,A16( 

13)), (P6 

A16( 

14)), (P7 

,A16( 

15)), 

- 

(PRHC 

,A16( 

16)),(PRIF 

A16( 

17)), (PROF 

,A16( 

18)) 


(RCVV 

,A18( 

1)),(RTT2 

A18( 

2)),(RTT22 

,A18( 

3)), 

— 

(RTT4 

,A18( 

4)),(RTT41 

A18( 

5)) 
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0031200 

0031300 

0031400 

0031500 

0031600 

0031700 

0031800 

“0031900 

0032000 

0032100 

0032200 

0032300 

0032400 

0032500 

0032600 

0032700 

0032300 

0032900 

0033000 

0033100 

0033200 

0033300 

0033400 

0033500 

0033600 

0033700 

0033800 

0033900 

0034000 

0034100 

0034200 

0034300 

0034400 

0034500 

0034600 

0034700 

0034800 

0034900 

0035000 

0035100 

0035200 

0035300 

0035400 

0035500 

0035600 

0035700 

0035800 

0035900 

0036000 

0036100 

0036200 

0036300 

0036400 

0036500 

0036600 

0036700 

0036800 

0036900 

0037000 

0037100 

0037200 

0037300 

0037400 

0037500 

0037600 

0037700 

0037800 

0037900 

0038000 

0038100 

0038200 

0038300 

0038400 


1 

2 

3 

4 

5 

6 

7 

8 
9 

I 

1 

2 

3 

4 

5 

6 


EQUIVALENCE 


EQUIVALENCE 


EQUIVALENCE 


1 

2 


(TOA 

, A20( 

1) ) , (T13 

,A20( 

2)), 

(T13M 

,A20( 

3) ) , 


(T13P 

,A20( 

4) ) , (T13PM 

,A20( 

5)), 

(T2 

,A20( 

6)), 

- 

(T2A 

,A20( 

7) ) , (T2t1 

,A20( 

8) ) , 

(T22 

,A20( 

9)), 

- 

(T22M 

,A20( 

10)), (T3 

,A20( 

ID), 

(T3M 

,A20( 

12) ) , 

- 

(T3P 

,A20( 

13) ) , (T3PM 

,A20( 

19)), 

(T9 

,A20( 

15)), 

- 

(T4t1 

,A20( 

16)),(T41 

,A20( 

17)), 

(T91M 

,A20( 

18)), 

- 

(T6 

,A20( 

19) ) , (T6M 

,A20( 

20)), 

(T7 

,A20( 

2D), 

_ 

(T7M 

,A20( 

22) ) , (TAM 

,A20( 

23)), 

(TAVAB 

,A20( 

29)), 

- 

(TAVB 

, A20( 

25) ) , (TAVHC 

,A20( 

26)), 

(TRHCMl 

,A20( 

27)), 


(TRIFMl 

,A20( 

28) ) , (TROFMl 

,A20( 

29) ) 




(WA13 

, A23( 

1 ) ) , (WA2 

,A23( 

2)), 

(UA22 

,A23( 

3)), 

- 

(WA3 

,A23( 

9) ) , (WAR2 

,A23( 

5)), 

(WAP.2M 

,A23( 

6)), 

- 

(WAR22 

,A23( 

7) ) , (WAR22M 

,A23( 

8)), 

(UBLHT 

,A25( 

9)), 

- 

(WBLLT 

,A23( 

10)),(WBLOV 

,A23( 

ID), 

(WF9 

,A23( 

12)), 


(WF7 

,A23( 

13) ) , (WG4 

, A23( 

19)), 

(MG91 

,A23( 

15) ) , 

_ 

(WG6 

,A23( 

16) ) , (WG7 

,A23( 

17)), 

(WG7M 

,A23( 

18)) , 

_ 

(WP4 

, A23( 

19) ) , (WP'+l 

,A23( 

20)) 





(X3 

,A24( 

1)),(X4 

,A2^»( 

2)), 

(X5 

,A29( 

3)), 

- 

(X6 

, A24( 

<+) ) , (XF 

, A29( 

5)), 

(XMN 

,A29( 

6)), 

- 

(XMNM 

,A24( 

7)), (XNH 

,A24( 

8)), 

(XNL 

,A29( 

9)) 


(Y3 

,A25( 

1)),(Y9 

,A25( 

2)), 

(Y5 

,A25( 

3)), 

_ 

(Y6 

,A25( 

9)) 






EQUIVALENCE 

1 

C^^^^^^ANALOG SETUP 

APRINT=APRINT+1 
GO TO (10,100),APRINT 
10 IF (IP .NE. 1) GO TO 30 
20 READ(IR,502)SFT 

READ(IR,503) VI 3 , V3 , V4 , V4 1 , V6 , V7 , AQLl 3 , AQL6 , XIH , XIL 
READ(IR,504) (PADR(I) ,1=1 ,53) 

READ(IR,505)(AADR(I) ,1=1,16) 

CALL VOLUriE(P13,T13, V13,W13,SW13,SFT,SFWA2,SFP13,SFT13,IK,POT,SFW13) 
PVALC 1 )=POT( 1 ) 

PVAL(2)=POT(2) 

PVAL(3)=POT(3) 

PVALC4)=POT(4) 

PVAL(5)=POT(5) 

IG(1)=IK 

CALL VOLUME(P3,T3, V3,W3,SW3,SFT,SFWA22,SFP3,SFT3 ,IK,POT,SFW3) 
PVAL(6)=POT(l) 

PVAL(7)=POT(2) 

PVAL(8)=POT(3) 

PVALC 9)=POT(4) 

PVAL(10)=POT(5) 

IG(2)=IK 

CALL VOLUMEC P4 , T4 , V4 , W4 , SW4 , SFT, SFWG4 , SFP4 , SFT4 , IK, POT, SFW4 ) 
PVAL(ll)=POT(l) 

PVAL(12)=POT(2) 

PVAL(13)=POT(3) 

PVAL(14)=POT(4) 

PVAL(15)=POT(5) 

IG(3)=IK 

CALL VOLUME ( P4 1 ,T41 ,V41 ,W41 ,SW41 , SFT, SFWG41 ,SFP41 ,SFT41 , IK, POT, SFW41 ) 
PVAL(16)=POT(l) 

PVALC 17 )=POT(2) 

PVALC18)=POT(3) 

PVAL(19)=POTC4) 

PVAL(20)=POT(5) 

IGC4)=IK 

CALL VOLUMEC P6 ,T6 ,V6 ,W6 ,SW6 , SFT, SFWG6 ,SFP6 ,SFT6 , IK, POT, SFW6 ) 
PVAL(21)=POT(l) 

PVAL(22)=POT(2) 

PVALC23)=POT(3) 

PVAL(24)=POT(4) 

PVALC25)=POT(5) 

IG(5)=IK 

PVALC26^“POTU)^^'^^'^^ ^ 

PVAL(27)=POT(2) 

PVAL(28)=POT(3) 

PVALC29)=POT(4) 

PVAL(30)=POT(5) 

IGC6 )=IK 

CALL SPOOL ( XIK , XNH , SFWG 4 , SFDH4 , SFXNH , SFT , IK , POT ) 
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0038500 

0038600 

0038700 

0038800 

0038900 

0039000 

0039100 

0039200 

0039300 

0039400 

0039500 

0039600 

0039700 

0039800 

0039900 

0040000 

0040100 

0040200 

0040300 

0040400 

0040500 

0040600 

0040700 

0040800 

0040900 

0041000 

0041100 

0041200 

0041300 

0041400 

0041500 

0041600 

0041700 

0041800 

0041900 

0042000 

0042100 

0042200 

0042300 

0042400 

0042500 

0042600 

“0042700 

0042800 

0042900 

0043000 

0043100 

0043200 

0043300 

0043400 

0043500 

0043600 

0043700 

0043800 

0043900 

0044000 

0044100 

0044200 

0044300 

0044400 

0044500 

0044600 

0044700 

0044800 

0044900 

0045000 

0045100 

0045200 

0045300 

0045400 

0045500 

0045600 

0045700 


PVAL(31)=POT(l) 

PVAL(32)=POT(2) 

IG(7)=IK 

CALL SPOOL(XIL,XNL,SFWG41,SFDH41,SFXNL,SFT,IK,POT) 
PVAL(33)=POT(l) 

PVALC34)=POT(2) 

IG(8)=IK 

30 CALL DUCT(AQL13,V13,SFP13,SFP6,SFT13,SFWA13,SFT,P13,P6,T13,- 
1 WA13,POT.IK,SFW13) 

IF(IP.NE.l) GO TO 31 
PVAL(35)=POT(l) 

PVAL(36)=POT(2) 

PVAL(37)=POT(3) 

PVAL(38)=POT(4) 

IG(9)=IK 

DP13R(IP)=1. 

GO TO 40 

31 DP13R(IP)=POT(4)/PVAL(38) 

4 0 CALL DUCT ( AQL6 , V6 , SFP6 , SFP7 , SFT6 , SFWG6 , SFT , P6 , P7 > T6 , WG6 , POT , IK , 
1 SFW6) 

IF(IP.NE.l) GO TO 41 
PVAL(39)=POT(l) 

PVAL(40)=POT(2) 

PVAL(41)=POT(3) 

PVAL(42)=POT(4) 

IG(10)=IK 
DP6R(IP)=1 . 

GO TO 50 

41 DP6R(IP)=POT(4)/PVAL(42) 

50 IFCIP.NE.I) GO TO 60 
PVAL(43)=WF4 
PVAL(44)=WF7 
PVAL(45)=A8 
PVAL(46)=AE 
PVAL(47)=CIVV 
PVAL(48)=RCVV 
PVAL(49)=ALT 
PVAL(50)=XMN 
PVAL(51)=TAn 

PVAL(52)=(P2^SFP2)/(P13*SFP13^XC(3)) 

PVAL(53) = (P22>^SFP22)/CP3^SFP3^XC(4) ) 

60 RETURN 
100 CONTINUE 

OUT OF ANALOG SPECIFICATIONS 
WRITE(IW,500) 

WRITE(IW,506) 

WRITE(IW,502)SFT 

WRITE(IW,501) 

WRITE(IW,507) 

WRITE(IW,508) 

WRITE(IW,509) 

WRITEC 114,50 3) V13 , V3 , V4 , V41 , V6 , V7 , AQL13 , AQL6 , XIH, XIL 

t4RITE(IW,501) 

t4RITE(IW,510) 

WRITE(IW,504)(PADR(I) ,1=1,53) 

WRITE(IW,501) 

WRITE(It4,511) 

WRITE(IW,505) (AADR(I),I=1,16) 

E4RITE(It4,501) 

WRITECIW,512) 

WRITE(IW,524) 

DO 105 1=1,53 

IF(PVALCI) .LE.O. ) PVAL(I)=.0001 
IF(PVALd).GE.l.O) PVAL(I)=.9999 
14RITE(IW,513) PADR(I) ,PVAL(I) 

105 CONTINUE 

WRITE(IW,501) 

WRITE(IW,525) 

DO 110 K=l,10 
N=IG(K) 

GAIN(K)=10^^N 
IF(K.GT,6) GO TO 106 
J=2^K 



00^5800 




0045900 


WRITE(IW,514) AADRCJJ),GAIN(K) 


0046000 


WRITE(IW,51<() AADR(J) ,GAIN(K) 


0046100 


GO TO 107 


0046200 

106 

J=K+6 


0046300 


WRITE(IW,51<i ) AADRC J) ,GAIN(K) 


0046400 

107 

CONTINUE 


0046500 

110 

CONTINUE 


0046600 


WRITE(IW,500) 


0046700 


WRITE(IW,515) 


0046600 


DO 120 1=22,24 


0046900 


DACI(I)=0. 


0047000 

120 

CONTINUE 


0047100 


WRITE(IW,516)(DACI(I) ,1=1,24) 


0047200 


WRITE(IW,501) 


0047300 


WRITE(IW,517) 


0047400 


WRITECIW, 518) W13,SFW13,SW13 


0047500 


WRITE(IW,519) W3,SFW3,SW3 


0047600 


URITEdW, 520 ) W4,SFW4,SW4 


0047700 


WRITE(IW,521 ) W41 ,SFW41 ,SW41 


0047800 


WRITE(IW,522) W6,SFW6,SW6 


0047900 


WRITE(IM,523) W7,SFW7,SW7 


0048000 


WRITE(IW,501) 


'0048100 

200 

CONTINUE 


0048200 

500 

FORMAT (1 HI) 


0048300 

501 

FORMAT(Z) 


0048400 

502 

FORMAT(1X,F5.0) 


0048500 

503 

FORMAT(6F12.5) 


0048600 

504 

F0RMAT((1X,8(A4,1X))) 


0048700 

505 

FORMAT(8I4) 


0048800 

506 

FORMAT(3X, 17HANALOG TIME SCALE/) 


0048900 

507 

FORMAT(3X,21HENGINE GEOMETRIC DATA/) 


0049000 

508 

FORMAT(6X,3HV13,9X,2HV3, 10X,2HV4, 1 OX , 3HV4 1 , 9X, 2HV6 , 1 OX, 

2HV7) 

0049100 

509 

FORMAT(6X, 5HAQL13 , 7X , 4HAQL6 , 8X , 3HXIH , 9X , 3HXIL/ ) 


0049200 

510 

FORMAT(3X,20HANALOG POT ADDRESSES/) 


0049300 

511 

FORMAT(3X,27HANALOG INTEGRATOR ADDRESSES/) 


0049400 

512 

FORMAT(3X,33HANALOG TIME SCALE SHOULD BE F-SEC/) 


0049500 

513 

FORMAT(3X,4HPOT ,A4,SH SET TO F7.4) 


0049600 

514 

FORMAT(3X,llHINTEGRATOR , 14 , 3X , 1 5HGAIN SHOULD BE ,16) 


0049700 

515 

FORMAT(3X,38HDACS INITIALIZED UITH FOLLOWING VALUES/) 


0049800 

516 

FORMAT(5(F8.5,2X) ) 


0049900 

517 

FORMATC3X, 16HSTORED MASS DATA/) 


0050000 

518 

FORMAT(3X,6HW13 = , F8 . 4 , 3X , 8HSFW1 3 = , F6 . 1 , 3X , 7HSW1 3 = 

,F8.4) 

0050100 

519 

FORMAT(3X,6HU3 = , F8 . 4 , 3X , 8HSFW3 = , F6 . 1 , 3X , 7HSW3 = 

,F8.4) 

0050200 

520 

FORMAT(3X,6HW4 = , F8 . 4 , 3X , 8HSFW4 = , F6 . 1 , 3X, 7HSU4 = 

>F8.4) 

0050300 

521 

FORMAT(3X,6HW41 = , F8 . 4 , 3X , 8HSFW4 1 = , F6 . 1 , 3X, 7HSW41 = 

,F8.4) 

0050400 

522 

FORMAT(3X,6HU6 = , F8 . 4 , 3X , 8HSFW6 = , F6 . 1 , 3X , 7KSW6 = 

,F8.4) 

0050500 

523 

FORMAT(3X,6HW7 = , FS . 4 , 3X , 8HSFW7 = , F6 . 1 , 3X, 7HSW7 = 

,F8.4) 

0050600 

524 

FORMATC3X, 12JIPOT SETTINGS/) 


0050700 

525 FOP.MAT(3X, 16HINTEGRATOR GAINS/) 


0050800 


REXaRK 


0050900 


END 


0051000 C 




0051100 C 




0051200 


0051300 C 




0051400 C 




0051500 


SUBROUTINE DATAIN(N,F) 


0051600 C 


MAP DATA INPUT ROUTINE 


0051 700 


COMMON /lO/ IR,IW,IPNCH 


0051800 


COMMON /IVARS/ IP , JP , JPA , JPD , HBH , KBL , KBV , NAUG , NDRY . NTOTAL . PLA 

0 051 90 0 


DIMENSION F(1),N(1) 


0052000 


DIMENSION VALSC25) ,XVALS(25) ,ZSC(4) 


0 0521 00 


DIMENSION ISCC4) ,IX(4) ,IY(4) ,IZ1(4) ,IZ2(4) ,IZ3(4) ,IZ4(4) 

0052200 

500 

FORMAT ( IHl ,/) 


0052300 

501 

FORMAT (513) 


005240 0 

502 

FORMAT(7(4A2) ) 


0 052500 

503 

FORMATC 1X,7(4A2) ) 


00526 0 0 


KPNCH=0 


005270 0 


IF( ( JP.EQ. 1 ) .OR. ( JPD.EQ. 1 ) ) KPNCH=1 


0052800 


K=1 


0052900 


JF=0 


0 0 5 3 0 0 0 

5 

READCIR, 501 ) M, NCV, NPT , NFCT , NCOM 
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005310 0 
0053200 
0053300 
0053^00 
0053500 
005360 0 
0053700 
0053800 
005390 0 
005‘'+000 
0054100 
0054200 
0 0 5 4 3 0 0 
0054400 
0 0 5 4 5 0 0 
0054600 
0 0 5 4 7 0 0 
0054800 
0054900 
0055000 
0055100 
0055200 
0055300 
0055400 
0055500 
0055600 
0055700 
0055800 
0055900 
0056000 C 
0056100 
0056200 
0056300 
0056400 
0056500 
0056600 
0056700 
0056800 
0056900 
0057000 
0057100 
0057200 
0057300 
0057400 
0057500 C 
0057600 
0057700 
0057800 
0057900 
0058000 
0058100 
0058200 
0058300 
0058400 
0058500 
0058600 
0058700 
0058800 
"0058900 
0059000 
0059100 
0059200 
0059300 
0059400 
0059500 
0059600 
0059700 
0059800 
0059900 
0060000 
0060100 
0060200 
0060300 C 


IF(M.EQ.O) RETURN 
NRITEC 114,50 0 ) 

WRITE ( 114 , 5 0 1 ) M , NC V , NPT , NFCT , NCOM 

IF(KPHCH.EQ.l) WRITE(IPNCH,501) M,NCV, NPT, NFCT, NCOH 

INC = NCV^'NPT 

N(K)=ri 

N(K+1)=1 

N(K+2)=1 

N(K+3)=NPT 

N(K+4)=NCV 

K=K + 5 

READCIR,502) (ISC(I) ,1=1 , 4 ) , (IX(I) ,1=1 , 4 ) , 

A (lYCI) ,1=1,4) , (IZl(I) ,1=1 ,4) , 

1 (IZ2(I) ,1=1,4), (IZ3(I) ,1=1 , 4 ) , (IZ4CI) ,1=1 ,4) 

WRITE (114, 50 3 ) (ISC(I) , 1= 1 , 4 ) , ( IX (I ) , 1=1 , 4 ) , ( lY ( I ) , 1= 1 , 4 ) , 

* (IZKI) ,1=1 ,4) , (IZ2(I) ,1=1,4) , (IZ3(I) ,1=1,4) , (IZ4(I) ,1=1,4) 

IFCKPNCH.EQ. 1 ) WRITE( IPNCH , 5 0 2 ) (ISC(I) ,1=1 , 4 ) , ( IX( I) , 1=1 , 4 ) , ( IY(I) , 1=1 , 4 ) , 
^ (IZ1(I),I=1,4),(IZ2CI),I=1,4),(IZ3(I),I=1,4),CIZ4(I),I=1,4) 

READ (IR, ISC) XSC,YSC, (ZSCCI) ,1=1, NFCT) 

WRITE (IIJ, ISC) XSC, YSC, (ZSC(I) ,1=1 , NFCT) 

IFCKPNCH.EQ. 1 ) WRITE ( IPNCH , ISC ) XSC , YSC , ( ZSC( I ) , 1=1 , NFCT ) 

READ(IR,IY) (VALS(I) ,1=1 ,NCV) 

WRITE (IW,IY) (VALSCI) ,1=1 ,NCV) 

IFCKPNCH.EQ. 1 ) WRITE ( IPNCH , lY ) ( VALS ( I ) , 1=1 , NCV ) 

JS=JF+1 

JF=JF+NCV 

1=1 

DO 10 J=JS,JF 
F( J)=VALS(I)/YSC 
CHECH CONSECUTIVE VALUES OF Y 
IF(J.NE.JS) TEST=F(J)-F(J-1) 

10 1=1+1 
JS = JF + 1 
JF=JF+NPT 
DO 90 L=1,NCV 
IF(NCOM.EQ.O) GO TO 14 
IFCNCOn.EQ. 32767) GO TO 16 
NCCM=32767 

14 READ(IR,IX) (XVALSCI) ,I=1,NPT) 

WRITE(IW,IX) (XVALSCI) ,1=1, NPT) 

IFCKPNCH.EQ. 1) WRITE(IPNCH,IX) ( XVALS ( I ) , 1= 1 , HPT ) 

16 1=1 

DO 20 J=JS,JF 
F( J)=XVALS(I)/XSC 
CHECK CONSECUTIVE VALUES OF X 
IF(J.NE.JS) TEST=F(J)-F(J-1) 

IFCL.EQ. 1) GO TO 20 
jriNPT=J-NPT 
TEST=F( J)-F( JMNPT) 

20 1=1+1 

DO 80 NF=1,NFCT 
GO TO (30, 40, 50, 60), NF 
30 READ(IR,IZ1) ( VALS ( I ) , 1=1 , NPT ) 

WRITE(IW,IZ1) (VALSCI) ,1=1, NPT) 

IFCKPNCH.EQ. 1 ) WRITEC IPNCH , IZl ) (VALSCI) ,1=1 , NPT) 

GO TO 70 

40 READ(IR,IZ2) (VALSCI) ,1=1 , NPT) 

WRITEC IW,IZ2) (VALSCI) ,1=1, NPT) 

IFCKPNCH.EQ. 1) WRITE(IPNCH,IZ2) (VALSCI) ,1=1 , NPT) 

GO TO 70 

50 READCIR,IZ3) ( VALS ( I ) , 1= 1 , NPT ) 

WRITE(IW,IZ3) (VALSCI) ,1=1, NPT) 

IFCKPNCH.EQ. 1) WRITEC IPNCH , IZ3 ) (VALSCI) ,1=1 , NPT) 

GO TO 70 

60 READ(IR,IZ4) CVALS(I) ,1=1 ,NPT) 

WRITE(IW,IZ4) (VALSCI) ,1=1, NPT) 

IF ( KPHCH . EQ . 1 ) WRITE ( IPNCH , IZ4 ) ( VALS C I ) , 1= 1 , NPT ) 

70 JS=JS+INC 
JF=JF+INC 
1=1 

DO 80 J=JS,JF 
F( J)=VALS(I)/ZSCCNF) 

CHECK CONSECUTIVE VALUES OF Z 
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0 0 6 0^100 
0 06 050 0 
0 0 6 0 6 0 0 
0 060700 
0060800 
0 060 900 
006 1 000 
0 06 1 1 0 0 
0 06 1 200 
0 06 1 300 
0 06 HOO 
0 06 1500 
0061600 
0061700 
0061800 
0061900 
0062000 
0062100 
0062200 
0062300 
0062600 
0062500 
0062600 
0062700 
0062800 
0062900 
0063000 
CG63100 
0063200 
0063500 
0063600 
0063500 
0063600 
0063700 
0063800 
0063900 
0066000 
0066100 
0066200 
“0066300 
0066600 
0066500 
0066600 
0066700 
0066800 
0066900 
0065000 
0065100 
0065200 
0065300 
0065600 
0065500 
0065600 
0065700 
0065800 
0065900 
0066000 
0066100 
0 0 6 6 2 0 0 
0066300 
0 066600 
0 066500 
0 0666 00 
0 066700 
0 066800 
0066900 
006 7000 
0 06 7 1 0 0 
0067200 
0067300 
0 067600 
0067500 
0067600 


IF(J.NE.JS) TEST=FCJ)-F( J-1) 
IF(L.EQ.l) GO TO 80 
JMNPT=J-NPT 
TEST=FCJ)-F(JMNPT) 

80 1=1+1 

IF(L.EQ.NCV) GO TO 5 
JS=JS + HPT-INC>^NFCT 
90 JF=JS+NPT“1 
RETURN 
END 
C 
C 

c 

c 


SUBROUTINE DCOEF 

THIS ROUTINE CALCULATES TRIMMED DIGITAL COEFFICIENTS 
REAL MAP,MAPL,KBLWHT,KBLWLT 
INTEGER PLA 

COMMON /IO/IR,IW,IPNCH 

IP, JP, JPA, JPD,KBH,KBL,KBV,NAUG,NDRY,NTOTAL,PLA 
COMMON /NMAPS/F1(322) ,F2(322) ,F3(856) ,F6(518) ,F5(226) ,F6(226), - 

1 H1(5) ,N2(5),N3(5),N6(5) ,N5(5),N6(5) 

COMMON /AVARS/ CCC 5 0 ) , DACK 26 ) , DC( 1 25 ) , XC( 6 ) , YC( 6 ) , ZCC 1 2 ) , UDCC 125 ) 
COMMON /SVARS/ BSCI VV , BSRC VV , SFA8 , SFAE , SFALT , SFCI VV , SFDH6 , SFDH6 1 , - 
A SFFG,SFFN,SFP0 ,SFP13>SFP2,SFP22,SFP3,SFP6,SFP61 

B SFP5 , SFP6 , SFP7 , SFRCVV , SFTO , SFTl 3 , SFT2 , SFT22 , SFT3 , - 

C SFT6 , SFT6 1 , SFT6 , SFT7 > SFVEL , SFWA 1 3 , SFWA2 , SFWA22 , - 

D SFWA3 , SFWF6 , SFUF7 > SFWG6 , SFWG61 .SFWG6 . SFl^G7 , SFXMN, - 

L SFXNH > SFXNL 

COnnON /XVARS/ A1(50),A2(50),A3(50),A4(50).A5(50),A6(50),A7(50), 

1 ^81(50),A9(50),A10(50),A11(50),A12(50),A13(50), 

2 A14(50),A15(50),A16(50),A17(50),A18(50),A19(50), 

3 A20(50),A21(50),A22(50),A23(50),A29(50),A25(50), - 

H A26(50) 

EQUIVALENCE (A8 , Al( 1)),(AE 

1 (ALTtI , Al( 4)) 

EQUIVALENCE (CD7 , A3( 1)),(CDN 

A3( 4)),(CP13P 

A3( 7)),(CP3 

A3( 10)),(CP41 
A3( 13)),(CPAB 


Al( 2)), (ALT 


Al( 3)); 


(CP13 

(CP22 

(CP4 

(CP7 

(CPHC 


A3( 2)),(CIVV 

A3( 5)),(CP2 

A3( 8)),(CP3P 

A3( 11)),(CP6 
A3( 14)),(CPB 


EQUIVALENCE (CV13P 
7 (CV3 

S (CV41 

9 (CVS 

A (CVHC 

EQUIVALENCE (DH4 

1 (DTQW3 

2 (DTQW6 

3 (DW3 

4 (DW6 

5 ( DXNL 
EQUIVALENCE (ETAAB 

1 (ETAIFM, A5( 

EQUIVALENCE (FAP.4M , A6( 

1 (FAR7M 

2 (FGPT3 

3 ( FNM 
EQUIVALENCE (GM13 

1 (Gt-12 , A7( 4)),(GM22 

2 (GM3M , A7( 7)),(GM3P 

3 (GM41 , A7( 10)),(GM4« 

4 (GM6 , A7( 13)),(GM6M 

5 (GM7M , A7( 16)),(GMAB 

6 (GMHC , A7( 19)) 

EQUIVALENCE (H13 ,A81( 1)),(H13M 

1 (H13PM ,A81( 4)),(H2 

2 (H2M ,A81( 7)),(H22M 

3 (H3M ,A81( 10)),(H3P 

^ (H4 ,A81( 13)),(H41 

5 (H41M ,A81( 16)), (H6 


A3( 16)),(CSHIFT, A3( 17)),(CV13 
A3( 19)),(CV2 
A3( 22)),(CV3P 
A3( 25)),(CV6 
A3( 28)),(CVAB 
A3( 31)),(CVN 
A4( 1)),(DH41 

A4( 4)),(DTQW4 

A4( 7)),(DTQW7 

A4( 10)),(DW4 
A4( 13)),(DW7 
A4( 16)) 


A3( 3)). 
A3( 6)), 
A3( 9)); 
A3( 12)) 
A3( 15)), 
A3( 18)) 
A3( 21)), 
A3( 24)), 
A3( 27)). 
A3( 30)), 


A3( 20)),(CV22 
A3( 23)),(CV4 
A3( 26)),(CV7 
A3( 29)),(CVB 
A3( 32)) 

2)),(DTQW13, A4( 3)) 

5)),(DTQW41, A4( 6)) 

8)),(DW13 , A4( 9)) 

A4( 11)),(DW41 , A4( 12)) 

A4( 14)),(DXNH , A4( 15)) 


A4( 

A4( 

A4( 


2)),(ETAHCM, A5( 
5)) 

2)),(FAR6M 
5) ) , (FGM3 
8) ) , (FNET 


3)) 


A6( 3)) 

A6( 6)) 

A6( 9)) 


A5( 1)),(ETAB , A5( 

4)),(ETAOFM, A5( 

1)),(FAR41M, A6( 

A6( 4)),(FG , A6( 

A6( 7)),(FN , A6( 

A6( 10)),(FSHIFT, A6( ID) 

A7( l)),(Gt1l3M , A7( 2)),(Gt113P , A7( 3)) 

, A7( 5)),(GN3 , A7( 6)) 

, A7( 8)),(GM4 , A7( 9)) 

, A7( ll)),(Gmit1 , A7( 12)), 
, A7( 14)),(GM7 , A7( 15)). 

, A7( 17)),(Gt1B , A7( 18)), 

,A81( 2)),(H13P ,A81( 3)), 

,A81( 5)),(H22 ,A81( 6)), 

,A81( 8)),(H3 ,A81( 9)), 

,A81( 11)),(H3PM ,A81( 12)). 

,A81( 14)),(H4t1 ,A81( 15)). 

,A81( 17)),(H6t1 ,A81( 18)), 
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0067700 
0067800 
C067900 
0068000 
0068100 
0068200 
0068300 
0068400 
0068500 
0068600 
0068700 
0068800 
0068900 
0069000 
0069100 
0069200 
0 0 6 9 3 0 0 
0 06 9-^00 
0069500 
0 06 96 0 0 
0069700 
0069800 
0069900 
007Q000 
007 0 1 0 0 
0070200 
0070300 
0070^00 
0070500 
0070600 
0070700 
0070800 
0070900 
0071000 
0071100 
0071200 
0071300 
0071^00 
0071500 
0071600 
0071700 
0071800 
0071900 
0072000 
0072100 
0072200 
0072300 
0 072^10 0 
0072500 
0072600 
0072700 
0072800 
0072900 
0073000 
0073100 
0073200 
0073300 
0073^00 
0073500 
0073600 
0073700 
0073300 
0073900 
007^000 
0074100 
0074200 
0074300 
0074400 
0074500 
0074600 
0074700 
0074800 
0074900 


6 

(H7 

,A81( 

19)),(H7M 

,A81( 

20)),(HAB 

,A81( 

21) ) 

7 

(HABM 

,A81( 

22)), (HB 

,A81( 

23)),(HBM 

,A81( 

24)) 

8 

(HHCM 

,A81( 

25) ) , (HP4 

,A81( 

26)),(HP41 

,A81( 

27)) 

EQUIVALENCE 

(KBLWHT 

,A11( 

1)),(KBLWLT 

,A11( 

2)) 



EQUIVALENCE 

(PE 

,A16( 

1)),(P0 

,A16( 

2)),(P0A 

,A16( 

3)) 

1 

(P0QT7 

,A16( 

4) ) , (P13 

,A16( 

5)),(P2 

,A16( 

6)) 

2 

(P2A 

,A16( 

7)),(P22 

,A16( 

8)),(P22Q2M 

,A16( 

9)) 

3 

(P3 

,A16( 

10)), (P4 

,A16( 

11) ) , (P41 

,A16( 

12)) 

4 

(P5 

,A16( 

13)), (P6 

,A16( 

14)), (P7 

,A16( 

15)) 

5 

( PP.HC 

,A16( 

16)),(PRIF 

,A16( 

17) ) , (PROF 

,A16( 

18)) 

EQUIVALENCE 

(RCVV 

,A18( 

1) ) , (RTT2 

,A18( 

2) ) , (RTT22 

,A18( 

3)) 

1 

(RTTA 

,A18( 

4)),(RTT41 

,A18( 

5)) 



EQUIVALENCE 

(TOA 

,A20( 

1)),(T13 

,A20( 

2)),(T13M 

,A20( 

3)) 

1 

(T13P 

,A20( 

4)),(T13Pt1 

,A20( 

5)),(T2 

,A20( 

6)) 

2 

(T2A 

,A20( 

7) ) , (T2t1 

,A20( 

8)),(T22 

,A20( 

9)) 

3 

(T22M 

,A20( 

10)), (T3 

,A20( 

11)),(T3M 

,A20( 

12)) 

4 

(T3P 

,A20( 

13)),(T3PM 

,A20( 

14) ) , (T4 

,A20( 

15) ) 

5 

(T-^M 

,A20( 

16)),(T41 

,A20( 

17 ) ) , (T41M 

,A20( 

18) ) 

6 

(T6 

,A20( 

19)),(T6M 

,A20( 

20) ) , (T7 

,A20( 

21)) 

7 

(T7M 

,A20( 

22) ) , (TAM 

,A20( 

23)),(TAVAB 

,A20( 

24) ) 

8 

(TAVB 

,A20( 

25) ) , (TAVHC 

,A20( 

26)),(TRHCM1 

,A20( 

27)) 

9 

(TRIFMl 

,A20( 

28)),(TR0FM1 

,A20( 

29) ) 



EQUIVALENCE 

(WA13 

,A23( 

1)),(WA2 

,A23( 

2)),(WA22 

,A23( 

3)) 

1 

(WA3 

,A23( 

4)),(WAR2 

,A23( 

5) ) , (WAR2M 

,A23( 

6)) 

2 

(WAR22 

,A23( 

7)),(WAR22M 

,A23( 

8 ) ) , ( WBLHT 

,A23( 

9)) 

3 

(WBLLT 

,A23( 

10)),(WBLOV 

,A23( 

11)),(UF4 

,A23( 

12)) 

4 

(WF7 

,A23( 

13) ) , (WG4 

,A23( 

14)),(WG41 

,A23( 

15)) 

5 

(WG6 

,A23( 

16)),(WG7 

, A23( 

17)),(WG7M 

,A23( 

18)) 

6 

(WPA 

,A23( 

19)),(WP41 

,A23( 

20)) 



EQUIVALENCE 

(X3 

,A2^( 

1)),(X4 

,A24( 

2)),(X5 

,A24( 

3)) 

1 

(X6 

,A2'i( 

4)),(XF 

,A24( 

5) ) , (XMN 

,A24( 

6)) 

2 

(XMNM 

,A24( 

7)),(XNH 

,A24( 

8) ) , (XNL 

,A24( 

9)) 

EQUIVALENCE 

(Y3 

,A25( 

1)),(Y4 

,A25( 

2)),(Y5 

,A25( 

3)) 

1 

(Y6 

,A25( 

4)) 





IF(IP.NE.l) 

GO TO 40 







DCC57)= P2/(ZC(3)^WA2^SQRT(T2)) 

DC(58)= P2/(P13^ XC(3)) 

DC(59)= SQRT(T2)/(XNL^YC(3) ) 

DC(60)= P2/(ZC(5)^P22) 

DC(61 )= P22/(ZC(7 )^WA22^SQRT(T22) ) 

DC(62)= P22/(P3^XC(4) ) 

DC(63)= SQRT(T22)/(XNH^YC(4) ) 

DC(64)= SQRT(P3^(P3-P4)/T3)/WA3 
DCC65)= (P4^XNH^.5)/(ZC(9)^WG4>^T4) 

DC(66)= P4/(P41^XC(5) ) 

DC(67)= SQRT(T4)/(XNH^YC(5) ) 

DC(68) = ( .2>^SFT3^SFWA22)/(SFT41^SFWG41) 
DC(69)=KBLWHT 

DC(70) = (DC(6 9)^.2^SFt'JA22)/SFWG4 
DC( 7 1 ) = . 2^SFWA22/SFWG4 
DC ( 7 2 ) = . 2^SFWA22/SFWG4 1 
DC(73)=(P41^XNL)/(ZC(11)^WG41^T41) 

DC(74)= P41/CP5^XC(6)) 

DC(75)= SQRT(T41)/(XNL^YC(6) ) 

DC(76)= P6/P5 

DCC77 ) = ( . 0 2^'SFT3^SFWA22)/(SFT6^SFWG6) 
DC(78)=KBLNLT 

DCC79) = (DC(78)^. 0 2>^SFWA22)/SFWG41 
DC(80 ) = . 02>^SFWA22/SFWG6 
DC(81 )=. 02^SFWA22/SFWA13 
DC(89)=DC(54)^DC(51) 

DCC90)=0. 

DC(91)= ,25 
DC(92)= .25 
DC(93)= .5 
DC(94)= .5 
DC(95)= .5 
DC(96)= .25 

DC(llO) = SFAE/(2.^SFA8) 

DC(lll) = SFP0/.SFP7 

DC(112) = (SFAE>^SFP0)/SFFG 

DC(113) = SFVEL/(44.75 ^ 2. ^ SQRTCSFT7)) 

DC(114)=.2 



0075000 

'0075100 

0075200 

0075300 

0075^00 

0075500 

0075600 

0075700 

0075800 

0075900 

0076000 

0076100 

0076200 

0076300 

0076400 

0076500 

0076600 

0076700 

0076800 

0076900 

0077000 

0077100 

0077200 

0077300 

0077400 

0077500 

0077600 

0077700 

0077800 

0077900 

0078000 

0078100 

0078200 

0078300 

0078400 

0078500 

0078600 

0078700 

0078800 

0078900 

0079000 

0079100 

0079200 

0079300 

0079400 

0079500 

0079600 

0079700 

0079800 

0079900 

0080000 

0080100 

0080200 

0080300 

0080400 

0080500 

0080600 

0080700 

0080800 

0080900 

0081000 

0081100 

0081200 

0081300 

0081400 

0081500 

0081600 

0081700 

0081800 

0081900 

0082000 

0082100 

0082200 

0082300 


DC( 1 15 ) = (SQRTCSFT7 )^SFWG7 )/( 0 . 53218^SFA8^SFP7 ) 

DC( 116)=(32. 17405^SFFG)/(SFWG7^SFVEL) 

C^^^^^^COMPUTE DIGITAL COEFFICIENTS REQUIRING LOOKUPS 
CKXXXX^COMPUTE CORRECTION FACTORS AT DRY DESIGN POINT 
DO 5 1=1,50 
CC(I)= 1. 

5 CONTINUE 

ALTM = DCCD^ALT 
XriNM = DC(2)^XMN 

CALL FLCOND C ALTM , XMNM, TAM, P2A , T2A , PO A , TO A ) 

CC ( 1 ) = ( DC ( 3 ) ^P2 ) / ( . 5^P2 A ) 

CC(2)=(DC(4)^T2)/( .5^T2A) 

CC(3)=(DC(5)^P0 )/( .5^P0A) 

X3= 1./XCC3) 

Y3= 1./YCC3) 

WAR2M = MAP(N3,F3,X3,Y3) 

ETAOFM = MAPLCF3) 

P22Q2M = MAPLCF3) 

ETAIFM = MAPLCF3) 

FSHIFT=MAP ( N1 , FI , CIVV , Y3 ) 

WAR2= (WAR2M^( . 5+ . S^FSHIFT) )/ . 5 
CC(4)= 1 ./(ZC(3)^WAR2) 

T2M= DC(6)^T2 

CALL PROCOM(T2M,0. ,CP2,CV2,GM2,H2M) 

H2= H2M/DCC7) 

PROF =(DC(8)>^P13)/P2 

CALL TRAT(l,PROF,GM2,TROFMl) 

CC(5)=(DC(96)^TROFMl)/(( .2^T13/(DC(9)^T2)-.2)^ETAOFM) 
CC(6)= 1 ./(2C(5)^P22Q2M) 

PRIF = (DC( 10 )^P22)/P2 
CALL TRAT(2,PRIF,GM2,TRIFM1) 

CC(7)= (DC(91)^TRIFMl)/(( .2^T22/(DC(11)^T2)-.2)^ETAIFM) 
T22M= T22^DC(19) 

CALL PROCOM(T22M,0. ,CP22,CV22,GM22,H22M) 

H22=H22M/DC(16) 

X4=l ,/XC(4) 

Y4=l ./YC(4) 

WAR22M= MAP(N4,F4,X4, Y4) 

ETAHCM= MAPLCF4) 

CSHIFT=MAP ( N2 , F2 , RCVV , Y4 ) 

WAR22=(WAR22M^( . 5+CSHIFT^ . 5 ) )/.5 

TRHC1D= ( ( .2^T3/(DC(12)^T22)-.2)^ETAHCM)/DC(92) 

CC(8)= 1 ./(2C(7 )^WAR22) 

PRHC= (DC(14)^P3)/P22 
BETAHC=1 . 

10 DC(83)=BETAHC^DC(12)^DC(13) 

DC(84) = ( 1 .-BETAFiC)^DC(13) 

TAVHC= DC(85)^T22 + DC(84)^T3 

CALL PROCOM ( T A VHC , 0 . , CPHC , C VHC , GMHC , HHCM ) 

CALL TRAT(3,PRHC,GMHC,TRHCM1 ) 

IF((BETAHC. GE.l.). AND, (TRHCM1 .lt. TRHCID)) GO TO 20 

IF((BETAHC.LE.0.).AND.(TRHCM1.GT.TRHC1D)) GO TO 25 

ERTRHC= TRHCMl - TRHCID 

IF(ABSCERTRHC) .LE. . Ol^TRHClD) GO TO 30 

IFCERTRHC.GT.O. ) GO TO 15 

BETAHC=BETAHC + .001 

GO TO 10 

15 BETAHC=BETAHC- .001 
GO TO 10 

20 DC(83)=DC(12)^DC(13) 

DC(84)=0. 

WRITE(IW,500) 

TAVHC=DC(83)^T22 

CALL PROCOM(TAVHC,0. , CPHC, CVHC, GMHC, HHCM) 

CALL TRAT(3,PRFIC, GMHC, TRHCMl) 

GO TO 30 
25 DCC83)=0. 

DC(84)=DC(13) 

WRITE(IW,501) 

TAVFIC=DC(84)^T3 

CALL PROCOMCTAVFFC, 0 , ,CPF1C, CVHC, GMHC, HHCM) 

CALL TR AT C 3, PRHC, GMHC, TRHCMl) 

30 CC(9)= (DC(92)^TRHCMl)/(( ,2^T3/(DC(12)^T22)-.2)^ETAHCM) 
35 T3M=DC( 13)^T3 
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0082400 CALL PROCOMC T3M . 0 . , CP3 , CV3 , GM3 , H3M) 

0082500 H3 = H3t1/DC( 17 ) 

0 0826 0 0 FGt13 = -.23396^GM3^GM3+.66572^Gri3+. 33337 

0 0827 0 0 DC( 97) = .5><FGM3> P3/SQRT(T3) 

0082800 IF(KBH.GT.O) DC( 98 ) =DC( 97 )/WBLHT 

0082900 IF(KBL.GT.O) DC( 99 ) =DC( 97 )/WBLLT 

0083000 IFdIBV.GT. 0 ) DC( 1 0 0 ) =DC( 97 )/WBLOV 

0083100 T4M = DCC21)^T4 

0083200 40 FAR4M = (DC(20 )^^WF4 )/WA3 

0083300 IF(IP.NE.l) GO TO 75 

0083400 CALL PROCOHl T4M, FAR4M, CP4 , CV4 , GM4 , H4M) 

0083500 114 = H4t1>^DC(22) 

0083600 HBD = ( H4^WG4/DCC 23 ) -ETAB^DCC 24 )^WF4/DC( 23 ))/MA3 

0083700 BETAB= 1. 

0083800 45 DC(85)= BETAB^DC( 25 ) ^DC( 21 ) 

0083900 DC(86)= ( 1 . -BETAB)*DC( 21 ) 

0084000 TAVB = DC(85)^T3 + DC(86)^T4 

0 084100 CALL PROCOtKTAVB, 0 . ,CPB,CVB,GMB,HBM) 

0084200 HB=HBM^DC(22) 

0084300 IF( (BETAB.GE. 1 . ) .AND. (HB.GT.HBD) ) GO TO 55 

0084400 IF( (BETAB.LE. 0 . ) . AND. (HB.LT.HBD)) GO TO 60 

0084500 ERRHB= HB-HBD 

0084600 IF(ABS(ERRHD) .LE. .Ol^HBD) GO TO 65 

0084700 IFCERRHB.GT.O. ) GO TO 50 

0084800 BETAB= EETAB - .001 

0034900 GO TO 45 

0085000 50 BETAB = BETAB + .001 

0085100 GO TO 45 

0085200 55 DC( 85 ) =DC( 25 )^DC( 21 ) 

0085300 DC(86)=0. 

0085400 TAVB=DC(85)^T3 

0085500 CALL PROCOtKTAVB, 0 . ,CPB,CVB,G«B,HBM) 

0085600 HB = HBM»^DC(22) 

0085700 WP.ITE(IM,502) 

0085800 GO TO 65 

0085900 60 DC(85)=0. 

0056000 DC(86 )=DC(21 ) 

0086100 WRITE(IW,503) 

0086200 TAVB=DC(86 )^T4 

0086300 CALL PROCOtKTAVB, 0 . ,CPB,CVB,GMB,HBM) 

0086400 HB=HBn>«DC(22) 

0086500 65 CC(10)= (H4^UG4/DC( 23 ) -HB^«WA3 ) / C WF4^ETAB^DC( 24 )/DC( 23 ) ) 

0086600 70 X5=1./XC(5) 

0086700 Y5=1./YC(5) 

0086800 WP4 = t1AP(N5,F5,X5,Y5) 

0086900 HP4 = MAPLCF5) 

0087000 DC(87)=( HP4^SQRT ( T4 ) ^XNH ) /DH4 

0087100 CC(11)= 1 ./(ZC(9)>^IJP4) 

0087200 T41t1= DC(28)^T41 

0087300 75 FAR4 1M= ( FAR4M*^ . 5 )/( . 5+ ( . 5+ . 04^FAR4t1) ><DC( 7 1 )^UBLHT/WG4 ) 

0087400 IFCIP.NE.DGO TO 80 

0087500 CALL PROCOtKT4lt1,FAR4lt1,CP4l ,CV41 ,GM41 ,H4im 

0087600 H41= H41M^DC(29) 

C087700 CC( 12)=(WG4«H4/DC(26)-WG41^H41+DC(68)^WBLHT^H3)/ 

0087800 1 (DC(27)^DH4^(WG4+DC(70)^WBLHT) ) 

0087900 X6 = l./XC(6) 

0088000 Y6 = l./YC(6) 

0088100 WP41= MAPCN6,F6,X6,Y6) 

0088200 HP41= MAPL(F6) 

0 088300 DC(88) = (HP41^<SQRT(T41)^XNL)/DH41 

0088400 CC(13)= 1 ./(ZC( 11)^UP41 ) 

0088500 T13tl= DC(34)»<T13 

0088600 CALL PROCOM(T13t1, 0 . ,CP13,CV13,GM13,H13M) 

0088700 H13= H13M/DC(15) 

0088800 80 FAR6M = (FAR4 1M>^ . 25 )/( . 25 + ( . 5+ . 04^FAR41M)^DC( 37 )^(UA13+DC(81)^ - 

0088900 1 WBLLT)/WG41) 

0089000 IF(IP.NE.l) GO TO 100 

0089100 T6t1= DC(38)^T6 

0089200 CALL PROCOM(T6t1, FAR6M, CP6 , CV6 , Gt16 , H6M) 

0089300 H6= H6M/DCC39) 

0089400 CC(14)= (DC( 31 )^MA13^H13 - WG6^H6 + DC( 32)«UG41«H41+DC(77 l^WBLLT^ - 

0089500 1 H3)/(DC(33)^DH41^(WG41+DC(79)«WBLLT)) 

0089600 FAR7M = FAR6M 

0089700 T7t1 = T7^DC(51) 
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0089800 
0089900 
0090000 
0090100 
0090200 
0090300 
0090^00 
0090500 
0090600 
0090700 
0090800 
0090900 
0091000 
0091100 
0091200 
"0091300 
0091^00 
0091500 
0091600 
0091700 
0091800 
0091900 
0092000 
0092100 
0092200 
0092300 
0092^00 
0092500 
0092600 
0092700 
0092800 
0092900 
0093000 
0093100 
0093200 
0093300 
0093^^00 
0093500 
0093600 
0093700 
0093800 
0093900 
009^000 
009^100 
009^200 
009^300 
009^^00 
0094500 
0094600 
0094700 
0094800 
0094900 
0095000 
0095100 
0095200 
0095300 
0095400 
0095500 
0095600 
0095700 
0095800 
0095900 
0096000 
0096100 
0096200 
0096300 
0096400 
0096500 
0096600 
0096700 
0096800 
0096 900 


CALL PROCOM ( T7M, FAR7M, CP7 , CV7 , GM7 , H7MJ 

H7= DC(52)^H7M 

POQT7=DC(111)^PO/P7 

CALL NOZZL ( PO , P7 , P0QT7 , T7 , A8 , AE, CDN, CVN , WG7M, FNM, XF) 

CC( 19)=(FG-XF)/(FNM-XF) 

FNET=FNM-XMHM^SQRT(T0A)^WA2/DC(45) 

CC(17)= WG7/WG7M 

CC( 15 )=WA22^(H3~DC( 12)^H22)^DC( 94 )/( ( WG4+DC( 7 0 ) ^WBLHT ) ^DC( 4 0 
1 .5^DH4) 


CC(16)=(WA2-DC(18)^WA22)^(H13-DC(9)^H2)^DC(93)/((WG41+DC(79)^ 
1WELLT)^.5^DC(41)^DH41)+WA22^(H22-DC(11)^H2)>^DC(93)/((WG41+DC(7 9)>^ 
2 WBLLT ) ^DC ( 4 2 ) ^ . 5^DH4 1) 
c^^x^^^store unmodified coefficients 

DO 85 1=1,125 
UDC(I)=DC(I) 

85 CONTINUE 


C^^^^^^MODIFY THOSE COEFFICIENTS THAT REQUIRE ADJUSTMENT 
90 DC(3)= DC(3)/CC(1) 

DC(4)= DC(4)/CC(2) 

DC(5)= DC(5)/CC(3) 

DC(57)= DC(57)/CC(4) 

DC(96)= DC(96)/CC(5) 

DCC60)= DC(60)/CC(6) 

DC(91)= DC(91)/CC(7) 

DCC61)= DC(61)^CCC8) 

DC(92)= DC(92)/CC(9) 

DC(24)= DC(24)^CC(10) 

DC(65)= DC(65)/CC(11) 

DC(27)= DC(27)^CC(12) 

DC(73)= DC(73)/CC(13) 

DC(33)= DC(33)^CC(14) 

DC(94)= DC(94)/CC(15) 

DC(93)= DC(93)/CC(16) 

DC(95)= DC(95)^CC(17) 

DC(116)=DC(116)^CC(19) 

C^^^^^^COMPUTE CORRECTION FACTORS AT WET DESIGN POINT 
95 IF(IP.NE.NDRY+1) GO TO 150 
100 FAR7M= FAR6M + (DC( 50 )^( . 04^FAR6M + . 5 ) ^WF7 )/( . 5^WG6 ) 
105 T7M = T7^DC(51) 

CALL PROCOMCT7M, FAR7M, CP7 , CV7 , GM7 , H7M) 

H7= DC(52)^H7M 


HABD= (H7^WG7/DC(49)-ETAAB^DC(53)^WF7/DC(49) )/WG6 
BETAAB=1 . 

110 DC(89)= BETAAB^DC(54)^DC(51) 

DC(90)= (l.-BETAAB)^DC(51) 

TAVAB= DC(89)^T6 + DC(90)^T7 

CALL PROCOMC TAVAB , FAR6M , CPAB , CVAB , GMAB , HABM ) 

HAB= HABM^DC(52) 

IF((BETAAB.GE.1.).AND.(HAB.GT.HABD)) GO TO 120 
IF(CBETAAB.LE.O*).AND.(HAB.LT.HABD)) GO TO 125 
ERRHAB = HAB - HABD 

IF(ABSCERRHAB) .LE. . Ol^HABD) GO TO 130 
IFCERRHAB.GT. 0 . ) GO TO 115 
BETAAB = BETAAB - .001 
GO TO 110 

115 BETAAB = BETAAB + .001 
GO TO 110 

120 DC(89)=DC(54)^DC(51) 

DC(90)=0. 

WRITE(IW,504) 

TAVAB=DC(89)^T6 

CALL PROCOM ( TAVAB , FAR6M , CPAB , CVAB , GMAB , HABM ) 
HAB=HABM^DC(52) 

GO TO 130 
125 DC(89)=0. 

DC(90)=DCC51) 

WRITE(IW,505) 

TAVAB=DC(90)^T7 

CALL PROCOM ( TAVAB , FAR6M , CPAB , CVAB , GMAB , HABM ) 
HAB=HABM^DC(52) 

130 CC(18) = (H7^WG7/DC(49)-HAB^WG6)/(WF7^DC(53)^ETAAB/DC(49)) 
UDC(89)=DC(89) 
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0097000 
0097100 
0097200 
0097300 
0097400 
0097500 
0097600 
0097700 
0097800 
0097900 
0098000 
0098100 
0098200 
0098300 
0098400 
0098500 
0098600 
0098700 
0098800 
0098900 
009^90 00 
0099100 
0099200 
0099300 
0099400 
0099500 
0099600 
0099700 
0099800 
0099900 
0100000 
0100100 
0100200 
0100300 
0100400 
0100500 
0100600 
0100700 
0100800 
0100900 
0101000 
0101100 
0101200 
0101300 
0101400 
0101500 
0101600 
0101700 
0101800 
0101900 
0102000 
0102100 
0102200 
0102300 
0102400 
0102500 
0102600 
0102700 
0102800 
0102900 
0103000 
0103100 
0103200 
0103300 
0103400 
0103500 
0103600 
0103700 
0103800 
0103900 
0104000 
0104100 


UDCC90)=DC(90) 

DC(53)= DC(53)^CC(18) 

150 RF.TIIPN 

500 f6rMAT(3X,45HHP COMPRESSOR EFFICIENCY REQUIRES TAV LT TIN./) 

501 FORMAT(3X,46HHP COMPRESSOR EFFICIENCY REQUIRES TAV GT TOUT./) 

502 FORMAT(3X,38HBURNER EFFICIENCY REQUIRES TAV LT TIN./) 

503 FORMAT(3X,39HBURNER EFFICIENCY REQUIRES TAV GT TOUT./) 

504 FORMAT(3X,41HAUGMENTOR EFFICIENCY REQUIRES TAV LT TIN./) 

505 FORMAT(3X,42HAUGMENTOR EFFICIENCY REQUIRES TAV GT TOUT./) 

END 

C 

C 

C 

C 

SUBROUTINE DUCT (AQL,V,SFPIN,SFPOUT,SFTIN,SFWG,TSC, PIN, POUT, TIN, 
1 WG,POT,IGAIN,SFW) 

C DUCT ROUTINE 

DIMENSION POT(l) 

PIN=PIN^SFPIN 

POUT=POUT^SFPOUT 

WG=WG^SFWG 

TIN = TIN>^SFTIN 

GC=386 .26 

RA=640.1 

POT( 1 )=WG/SFWG 

POT2I=AQL^GC^SFPIN/(SFWG^TSC) 

POT3I=SFPOUT^POT2I/SFPIN 

POT4I=AQL^GC^PIN^(PIN-POUT)^SFWG^V/(WG^WG^RA^TIN^SFW^TSC) 

IFCPOT2I.GT. 1 . ) GO TO 2 

IGAIN=0 

POT(2)=POT2I 

POT(3)=POT3I 

POTC4)=POT4I 

GO TO 7 

2 IFCPOT2I.GT. 10 . ) GO TO 3 
IGAIM=1 

POT(2)=POT2I/10 . 

POT(3)=POT3I/10. 

POT(4)=POT4I/10 . 

GO TO 7 

3 IF(POT2I.GT. 100 . ) GO TO 4 
IGAIN=2 

POT(2)=POT2I/100. 

POT(3)=POT3I/100 . 

POT(4)=POT4I/100 . 

GO TO 7 

4 IF(POT2I.GT. 1000 . ) GO TO 5 
IGAIN=3 

POT(2)=POT2I/1000 . 

POT(3)=POT3I/1000 . 

POT(4)=POT4I/1000. 

GO TO 7 

5 IFCPOT2I.GT. 10000 . ) GO TO 6 
IGAIN=4 

POT(2)=POT2I/10000 . 

POT(3)=POT3I/10000 . 

POT(4)=POT4I/10000. 

GO TO 7 

6 IGAIN=5 

POT(2)=POT2I/100000 . 

POT(3)=POT3I/100000. 

POT(4)=POT4I/100000. 

7 CONTINUE 
PIN=PIN/SFPIN 
POUT=POUT/SFPOUT 
WG=MG/SFWG 
TIN=TIN/SFTIN 
RETURN 

END 

C 

C 
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010^200 

010^300 

010^^00 

010^500 

010^600 

010^700 

010^800 

0104900 

0 105000 
0105100 
0105200 
0105300 
0105400 
0105500 
0105600 
0105700 
0105800 
0105900 
0 1 06 000 
0106100 

01 06200 
0106300 
0106400 
0106500 
0106600 
0106700 
0106800 
0106900 
0107000 
0107100 
0107200 
0 1 07300 
0107400 

"*0107500 
0107600 
0107700 
0107800 
0 1 07 900 
0 108000 
U108100 
0108200 
0108300 
0108400 
0108500 
0108600 
0108700 
0108800 
0108900 
0109000 
0109100 
0109200 
0109300 
0109400 
0109500 
0109600 
0109700 
0109800 
0109900 
0110000 
0110100 
0110200 
0110300 
0110400 
0110500 
0110600 
0110700 
0110800 
0110900 
0111000 
0111100 
0111200 
0111300 
0111400 
0111500 


C 

C 

SUBROUTINE ENGINE 

C THIS ROUTINE PERFORMS ALL THE ENGINE CALCULATIONS 

C AND IS SIMILAR IN STRUCTURE TO THE 

C LOOP ROUTINE OF THE HYBRID SIMULATION 

REAL MAP,MAPL,KBLWHT,KBLWLT 
INTEGER PLA 
DIMENSION N7(3) 

DIMENSION XY(45),X7(15) ,Y71C15),Y72(15) 

EQUIVALENCE (X7 ( 1 ) . XY( 1 )) , ( Y7 1 Cl ) , XY( 16 ) ) , ( Y72 ( 1 ) , XYC 311 ) 
DATA N7/l,l,15/ 

DATA X7/ 

^ .05000, .34732, .40345, 

^ .57747, .61735, .66017, 

DATA Y71/ 

^ .96610, .96610, .95366, 

^ .95519, .94861, .93186, 

DATA Y72/ 

^.97034, .97034, .97184 
^.99500,1.0000,1.0000 
COMMON 


.43196, .45522, . 48 029 , . 51 127 , , 54541 , 
.72709, .84377, .91296, .95000/ 

.95208, .95019, , 95172, . 9536 9 , . 957 0 9 , 
.88707, .88481, .90661, .92250/ 


98933, 


97431. . 97727. .98022. .98406. . 

95010. . 95372. .96547. .97600/ 

/IVARS/ IP , JP , JPA , JPD , KBH , KBL , KB V , NAUG , NDR Y , NTOTAL , PLA 
COMMON /NMAPS/F1(322),F2(322) ,F3(854) ,F4(518),F5(224) ,F6C224), - 

1 N1C5) ,N2(5) ,N3(51 ,N4(5) ,N5(5) ,N6(51 

COMMON /AVARS/ CC( 5 0 ) , DACIC 24 ) , DCC 125 ) , XC( 6 1 , YCC 6 ) , ZCC 12 ) , UDCC 125 ) 
COMMON /RVARS/ CBLHRC 5 0 1 , CBLLRC 50 ) , CBLVR ( 50 1 , DH4QRC 50 ) , DH4TR ( 50 ) , - 
A DH41QRC50) ,DH41TR(50) ,DP13R(50) ,DP6R(501 ,ETAABR(501 

B ETABR(50),FGR(50) ,P0R(50),P2R(5O) ,P22R(50) ,- 

C P5R(50) ,T13PRC50) ,T2R(50 ) , T22RC50 ) ,T3PR(50 ) , - 

D WA2RC50) ,WA22R(50) ,WA3R(50),WG4R(50) ,WG41R(50) ,- 

E WG7RC50) 

COMMON /XVARS/ A1 ( 5 0 ) , A2 ( 50 ) , A3 ( 50 ) , A4 ( 5 0 ) , A5 ( 50 ) , A6 ( 50 ) , A7 ( 50 ) , 

1 A8 1(50 ),A9(50),A1 0(50 ),A1 1(50), A1 2(50 ),A1 3(50), 

2 A1 4(50), A1 5(50), A1 6(50), A1 7(50), A1 8(50), A19C50), 

3 A20C50) ,A21C50) ,A22(50 ) , A23(50 ) , A24C50 ) , A25C50 ) , - 

4 A26C50) 

3)), 


EQUIVALENCE 

(A8 

, Al( 

1) ) , (AE 

, Al( 

2)), (ALT 

, Al( 

3 

1 

(ALTM 

. Al( 

4)) 





EQUIVALENCE 

(CD7 

, A3( 

1) ) , (CDN 

. A3( 

2)),(CIVV 

, A3( 

3 

2 

(CP13 

, A3( 

4) ) , (CP13P 

, A3( 

5) ) , (CP2 

, A3( 

6 

2 

(CP22 

, A3( 

7) ) , (CP3 

, A3( 

8) ) , (CP3P 

, A3( 

9 

3 

(CP'i 

, A3( 

10 ) ) , (CP-tl 

, A3( 

11) ) , (CP6 

, A3( 

12 

4 

(CP7 

, A3( 

13) ) , (CPAB 

. A3( 

14) ) , (CPB 

, A3( 

15 

5 

(CPHC 

, A3( 

16) ) , (CSHIFT 

, A3( 

17)),(CV13 

, A3( 

18 

EQUIVALENCE 

(CV13P , A3( 

19) ) , (CV2 

, A3( 

20)),(CV22 

, A3( 

21 

7 

(CV3 

, A3( 

22) ) , (CV3P 

, A3( 

23)),(CV4 

, A3( 

24 

8 

(CV41 

. A3( 

25) ) , (CV6 

, A3( 

26)), (CV7 

, A3( 

27 

9 

(CVS 

, A3( 

28)),(CVAB 

, A3( 

29)), (CVB 

, A3( 

30 

A 

(CVHC 

. A3( 

31 ) ) , (CVN 

, A3( 

32)) 



EQUIVALENCE 

(DH4 

, A4( 

D), (DH41 

, A4( 

2)), (DTQW13 

, A4( 

3 

1 

(DTQW3 , A4( 

4) ) , (DTQU4 

, A4( 

5)),(DTQW41 

, A4( 

6: 

2 

(DTQW6 , A4( 

7) ) , (DTQW7 

, A4( 

8) ) , (DW13 

, A4( 

9: 

3 

(DW3 

. A4( 

10) ) , (DW4 

, A4( 

11) ) , (DU41 

, A4( 

12 : 

4 

(DW6 

, A4( 

13) ) , (DW7 

, A4( 

14)),(DXNH 

, A4( 

15 

5 

(DXNL 

, A4( 

16)) 





EQUIVALENCE 

(ETAAB , A5( 

1) ) . (ETAB 

, A5( 

2)),(ETAHCM 

, A5( 

3 

1 

(ETAIFtI, A5( 

4) ) , (ETAOFM 

, A5( 

5)) 



EQUIVALENCE 

(FAR4M , A6( 

1)), (FAR41M 

, A6( 

2)),(FAR6t1 

, A6( 

3 

1 

(FAR7M , A6( 

4) ) , (FG 

, A6( 

5)),(FGt13 

, A6( 

6 

2 

(FGPT3 , A6( 

7)),(FN 

, A6( 

8)),(FNET 

, A6( 

9 

3 

(FNM 

. A6( 

10 ) ) , (FSHIFT 

, A6( 

ID) 



EQUIVAI,ENCE 

(GM13 

, A7( 

l)),(Gm3M 

, A7( 

2)),(GM13P 

, A7( 

3 

1 

(GM2 

, A7( 

4) ) , (GM22 

. A7( 

5)),(GM3 

, A7( 

6 

2 

(GM3M 

, A7C 

7) ) , (GM3P 

, A7( 

8)),(GM4 

, A7( 

9 

3 

(GM41 

, A7( 

10)),(Gt14M 

, A7( 

ll)),(Gt141M 

, A7( 

12 

4 

(GM6 

, A7( 

13)),(GM6n 

, A7( 

14)),(GM7 

, A7( 

15 : 

5 

(GM7M 

, A7( 

16)),(GMAB 

, A7( 

17)) , (GMB 

, A7( 

18: 

6 

(GtlHC 

, A7C 

19) ) 





EQUIVALENCE 

(H13 

,A81( 

D), CH13M 

,A81( 

2)),(H13P 

,A81( 

3 

1 

(H13PM ,A81( 

4)), (H2 

,A81( 

5) ) , (H22 

,A81( 

6: 

2 

(H2M 

,A81( 

7) ) , (H22H 

,A81( 

8)),(H3 

,A81( 

9 

3 

(H3M 

,A81( 

10) ) . (H3P 

,AS1( 

ll)),(H3Pt1 

,A81( 

12 ; 

4 

(H4 

,A81( 

13)), (H41 

,A81( 

14)),(H4t1 

,A81( 

15 ; 
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0111600 

5 

(H61M 

,A81( 

16)), (H6 

,A81( 

17)),(H6M 

,A81( 

18)), 

- 

0111700 

6 

(H7 

,A81( 

19)),(H7M 

,AS1( 

20)), (HAB 

,A81( 

21)), 

- 

0111800 

7 

(HARM 

,A81( 

22) ) , (HB 

,A81( 

23)),(HBM 

,A81( 

26)), 

- 

0111900 

8 

( HHCM 

,A81( 

25)),(HP6 

,A81( 

26)),(HP61 

,A81( 

27)) 


0112000 

EQUIVALENCE 

(KBLWHT 

,A11( 

1)),(KBLWLT 

,A11( 

2)) 




0112100 

EQUIVALENCE 

(PE 

,A16( 

1)),(P0 

,A16( 

2)),(P0A 

,A16( 

3)), 

- 

0112200 

1 

(P0QT7 

,A16( 

6)),(P13 

,A16( 

5)),(P2 

,A16( 

6)), 


0112300 

2 

(P2A 

,A16( 

7)),(P22 

,A16( 

8)),(P22Q2M 

,A16( 

9)), 

- 

0112400 

3 

(P3 

,A16( 

10)), (P6 

,A16( 

11)),(P61 

,A16( 

12)), 

- 

0112500 

4 

(P5 

,A16( 

13)), (P6 

,A16( 

16)), (P7 

,A16( 

15)), 

- 

0112600 

5 

(PRHC 

,A16( 

16)), (PRIF 

,A16( 

17)), (PROF 

,A16( 

18)) 


0112700 

EQUIVALENCE 

(RCVV 

,A18( 

1) ) , (RTT2 

,A18( 

2)),(RTT22 

,A18( 

3)), 

- 

0112800 

1 

(RTT6 

,A18( 

6) ) , (RTT61 

,A18( 

5)) 




0112900 

EQUIVALENCE 

(TOA 

,A20( 

1)),(T13 

,A20( 

2)),(T13M 

,A20( 

3)), 

- 

0113000 

1 

(T13P 

,A20( 

6)),(T13PM 

,A20( 

5)),(T2 

,A20( 

6)), 

- 

0113100 

2 

(T2A 

,A20( 

7)),(T2M 

,A20( 

8)),(T22 

,A20( 

9)), 

- 

0113200 

3 

(T22M 

,A20( 

10)), (T3 

,A20( 

11)),(T3M 

,A20( 

12)), 

- 

0113300 

4 

(T3P 

,A20( 

13)),(T3PM 

,A20( 

16)), (T6 

,A20( 

15)), 

- 

0113400 

5 

(T6M 

,A20( 

16)),(T61 

19)),(T6M 

,A20( 

17) ) . (T61M 

,A20( 

IS) ) . 

- 

0113500 

6 

(T6 

,A20( 

,A20( 

20)), (T7 

,A20( 

21)), 

- 

0113600 

7 

(T7M 

,A20( 

22)), (TAM 

,A20( 

23)),(TAVAB 

,A20( 

26)), 

- 

0113700 

8 

(TAVB 

,A20( 

25)),(TAVHC 

,A20( 

26)),(TRHCM1 

,A20( 

27)), 

- 

0113800 

9 

(TRIFMl, A20( 

28) ) , (TROFM1,A20( 

29) ) 




0113900 

EQUIVALENCE 

(WA13 

,A23( 

1)),(WA2 

,A23( 

2)),(WA22 

,A23( 

3)), 

- 

0114000 

1 

(UA3 

,A23( 

6) ) , (WAR2 

,A23( 

5)),(WAR2M 

,A23( 

6)), 

- 

0114100 

2 

(WAR22 

,A23( 

7)),(UAR22M,A23( 

8) ) , (WBLHT 

,A23( 

9)), 

- 

0114200 

3 

(WBLLT 

,A23( 

10) ) , (WBLOV 

,A23( 

11)),(UF6 

,A23( 

12)), 

- 

0114300 

4 

(WF7 

,A23( 

13) ) , (WG6 

,A23( 

16) ) , (WG61 

,A23( 

15)), 

- 

0114400 

5 

(WG6 

,A23( 

16)),(WG7 

,A23( 

17) ) , (WG7M 

,A23( 

18) ) , 

- 

0114500 

6 

(WP6 

,A23( 

19) ) , (UP61 

,A23( 

20)) 




0114600 

EQUIVALENCE 

(X3 

,A26( 

1)), (X6 

,A26( 

2)),(X5 

,A26( 

3)), 

- 

0114700 

1 

(X6 

,A26( 

6) ) , (XF 

,A26( 

5 ) ) , ( XNN 

,A26( 

6)), 

- 

0114800 

2 

(XMNM 

,A26( 

7) ) , (XNH 

,A26( 

8) ) , (XNL 

,A26( 

9)) 


0114900 

EQUIVALENCE 

(Y3 

,A25( 

1) ) , (Y6 

,A25( 

2)),(Y5 

,A25( 

3)), 

- 

0115000 

1 

(Y6 

,A25( 

6)) 







0115100 C COMPUTE FAN INLET CONDITION AND FAN PERFORMANCE PARAMETERS 

0115200 100 ALTM = DCCD^ALT 

0115300 XMNM = DC(2)^XMN 

0115400 CALL FLCONDCALTM, XMNM, TAM, P2A,T2A,P0A,T0A) 

0115500 P2C= ( .5^P2A)/DC(3) 

0115600 P2R(IP)= P2/P2C 

0115700 P2=P2C 

0115800 T2C= ( ,5«T2A)/DCC^) 

0115900 T2R(IP)= T2/T2C 

0116000 T2=T2C 

0116100 IF(IP.EQ.l) DACI(1)=P2 

0116200 IF(IP.EQ.l) DACI(2)=T2 

0116300 105 X3 = (DC(58)^P13)/P2 

0116600 Y3 = (DC(59)^XNL)/SQRT(T2) 

0116500 WAR2M= MAP( N3 , F3 , X3 , Y3 ) 

0116600 ETAOFM = MAPL(F3) 

0116700 P22Q2M = MAPL(F3) 

0116800 ETAIFM = MAPL(F3) 

0116900 IF(CIVV .LT. .0) CIVV=.0 

0117000 110 FSHIFT = MAP(N1 ,F1 ,CIVV,Y3) 

0117100 WAR2 = (WAR2M^( .5+.5^FSHIFT))/.5 

0117200 IF(IP.EQ.l) DACI(3)=X3 

0117300 IF(IP.EQ.l) DACK6) = WAR2 

0117600 WA2C=(UAR2^P2)/(SQRT(T2)^DC(57) ) 

0117500 WA2R(IP)= WA2/WA2C 

0117600 WA2=WA2C 

0117700 P22C=(P22Q2M^P2)/DC(60) 

0117800 P22R(IP)=P22/P22C 

0117900 P22=P22C 

0118000 PRIF=(DC(10)»^P22)/P2 

0118100 T2M = DC(6)^T2 

0118200 115 CALL PROCOM(T2M, 0 . , CP2 , CV2 , GM2 , H2M) 

""0118300 CALL TRAT(1 , PRIF, GM2 , TRIFMl ) 

0118600 T22C=(DC(11)^T2^( .2+DC(91)^TRIFMl/ETAIFM) )/.2 

0118500 T22R(IP)=T22/T22C 

0118600 T22=T22C 

0118700 C COMPUTE COMPRESSOR PERFORMANCE PARilMETERS 

0118800 120 X6=(DC(62)«P3)/P22 

0118900 Y6=(DC(63) ^XNH ) /SORT ( T22 ) 
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0 1 1 90 00 
0119100 
0119200 
0119300 
0119''+00 
0 1 1 950 0 
0119600 
0119700 
0119800 
0 1 1 9900 
0 120 000 
0120100 
0120200 
0 120300 
0120-^00 
0120500 
0 1206 00 
0 1 207 00 
0120800 
0 120 900 
0121000 
0121100 
0121200 
0121300 
0 1 2 0 0 
0121500 
0121600 
0121700 
0121800 
0121900 
0122000 
0122100 
0122200 
0122300 
0122400 
0122500 
0122600 
0122700 
0122800 
0122900 
0 123000 
0123100 
0123200 
0123300 
0123400 
0123500 
0123600 
““0123700 
0123800 
0123900 
0124000 
0124100 
0124200 
0124300 
0124400 
0124500 
0124600 
0124700 
0124800 
0124900 
0125000 
0125100 
0125200 
0125300 
0125400 
0125500 
0125600 
0125700 
0125800 
0125900 
0126000 
0126100 
0126200 
0126300 


WAR22M=MAP(N4,F4,X4,Y4) 

ETAHCn=MAPL(F4) 

IFCRCVV .LT. .0) RCVV=.0 
CSHIFT = MAP(N2,F2,RCVV,Y4) 

WAR22 = (WAR22M^( .5+.5^CSHIFT))/.5 
IF(IP.EQ.l) DACI(5)=X4 
IFCIP.EQ. 1) DACI(6)=WAR22 
WA22C=(WAR22 ^P22 )/SQRT( T22 )/DCC 6 1 ) 

WA22I=WA22 

WA22R(IP)=WA22/WA22C 

WA22=WA22C 

COMPUTE DERIVATIVES AT STATION 13 

125 DW13=WA2 - DC(18)^WA22 - DC(56)^WA13 
PROF=(DC(8)^P13)/P2 
CALL TRAT(2,PROF,GM2.TROFMl) 

T13PC= (DC(9)^T2^( . 2+DCC 96 ) ^TROFMl/ETAOFM) )/*2 

T13PR(IP)=T13/T13PC 

T13P=T13PC 

T13PM=DC(34)^T13P 

CALL PROCOM(T13PM, 0 . >CP13P,CV13P,GM13P,H13PM) 

H13P=H13PM/DC(15) 

T13M=DC(34)^T13 

130 CALL PROCOM(T13M,0. ,CP13,CV13.Gril3,H13ri) 

H13=H13M/DC(15) 

GM13M=(GM13-.5)/.5 

DTQW13=( (WA2-DC(1S)^WA22)^(H13P-H13) )/CV13+T13^DW13^GM13M 

COMPUTE BLEEDS AND COMBUSTOR AIRFLOW 

135 T3M=DC(13)^T3 

CALL PROCOM(T3M,0. , CP3 , CV3 , GM3 , H3M) 

FGM3=C . 66572“ . 23396^GM3 )*GM3+ . 33337 
FGPT3= .5^FGM3^P3/SQRT(T3) 

IF(KBH.GT.O) GO TO 140 
WBLHT=0 . 

CBLHR(IP)=1 , 

GO TO 145 

140 WBLHT=FGPT3/DC(98) 

CBLHR(IP)=(WG41~DC(30)^WG4)/(DC(72)^WBLHT) 
WBLHTN=(WG41“DC(30)^WG4)/(DC(72)^CBLHR(IP) ) 

145 IF(KBL.GT.O) GO TO 150 
WBLLT=0 . 

CBLLR(IP)=1. 

GO TO 155 

150 WBLLT=FGPT3/DC(99) 

CBLLR(IP)=(WG6-DC(36)^WG41-DC(35)^WA13)/(DC(80 )^WBLLT) 
WBLLTN=(WG6-DC(36)^WG41-DC(35)^WA13)/(DC(80)^CBLLR(IP) ) 

155 IF(KBV.GT.O) GO TO 160 
WBLOV=0 . 

CBLVR(IP)=1. 

GO TO 165 

160 WBLOV=FGPT3/DC(100) 

CBL VR ( IP ) = ( W A 2 21- DC ( 4 3 ) ^WA3 - . 2 ^WBLHTN- . 0 Z^WBLLTN ) / ( • 0 0 Z^UBLOV ) 

COMPUTE DERIVATIVES AT STATION 3 

165 WA3C=SQRT(P3^(P3-P4)/T3)/DC(64) 

WA3R(IP)=WA3/WA3C 

WA3=WA3C 

DW3=WA22- . Z^WBLHT- . OZ^WBLLT- . 0 02^WBLOV-DC( 43 )^WA3 
H3=H3M/DC(17) 

PRHC=(DC(14)^P3)/P22 
TAVHC=DC(83)^T22+DC(84)^T3 
170 CALL PROCOM(TAVHC,0 . ,CPHC,CVHC,GMHC,HHCM) 

CALL TRATC3>PRHC,GMHC,TRHCM1) 

T3PC=(DC(12)^T22^( .2+DC( 92 )^TRHCM1/ETAHCM) )/.2 
T3PR(IP)=T3/T3PC 

T'^P = T'^Pf* 

T3PM=DC(13)^T3P 

CALL PROCOMCT3PM, 0 . ,CP3P,CV3P,GM3P,H3PM) 

H3P=H3Pn/DC(17) 

GM3M=(GM3-.5)/.5 

DTQW3=(WA22^(H3P-H3))/CV3-T3^DU3>fGM3M 

COMPUTE HP TURBINE PERFORMANCE PARAMETERS 

175 X5=(DC(66)«PA1)/P4 

Y5=(DC(67)«XNH)/SQRT(T^) 

WPA=MAP(N5,F5,X5,Y5) 

HP^=MAPL(F5) 
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0126400 
0126500 
0126600 
0126700 C. 
0126800 
0126900 
0127000 
0127100 
0127200 
0127300 
0127400 
0127500 
0127600 
0127700 
0127800 
0127900 
0128000 
0128100 C. 
0128200 
0128300 
0128400 
0128500 
0128600 
0128700 
0128800 
0128900 
0129000 
""0129100 
0129200 C. 
0129300 
0129400 
0129500 
0129600 
0129700 
0129800 
0129900 
0130000 
0130100 
0130200 C. 
0130300 
0130400 
0130500 
0130600 
0130700 
0130800 
0130900 
0131000 
0131100 
0131200 
0131300 
0131400 C. 
0131500 
0131600 
0131700 
0131800 
0131900 
0132000 
0132100 
0132200 
0132300 
0132400 
0132500 
0132600 
0132700 
0132800 C. 
0132900 
0133000 
0133100 
0133200 
0133300 
0133400 
0133500 
0133600 
0133700 


WG4C=( .5^WP4^P4^XNH)/(T4^DC(65) ) 

WG4R(IP)=WG4/WG4C 

WG4=WG4C 

COMPUTE DERIVATIVES AT STATION 4 

DW4=DC(23)^WA3-WG4+DC(44)^WF4 
TAVB=DC(85)^T3+DC(86 )^T4 
180 CALL PROCOM(TAVB,0. ,CPB,CVB,GMB,HBM) 

HB=HBM^DC(22) 

FAR4M=(DC(20)^WF4)/WA3 

T4M=DC(21)^T4 

185 CALL PROCOM(T4M,FAR4M,CP4,CV4,GM4,H4M) 

H4=H4M^DC(22) 

GM4M=(GM4-.5)/.5 

ETABC=(-DC(23)^WA3^HB+H4^CDC(23)^WA3+DC(44)^WF4))/CDC(24)^WF4) 
ETABR ( IP ) =ETABC/ETAB 

DTQW4=(DC(23)^WA3^HB-H4^(DCC23)^WA3+DC(44)^WF4)+DC(24)^ETAB^WF4) 
1 /CV4+T4^DW4^GM4M 

COMPUTE LP TURBINE PERFORMANCE PARAMTERS 

190 P5C=P6/DC(76) 

P5R(IP)=P5/P5C 

P5=P5C 

X6=(DCC74)^P5)/P41 

Y6=(DC(75)^XNL)/SQRTCT41) 

WP41=MAP(N6,F6,X6,Y6) 

HP41=MAPL(F6) 

WG41C=(WP41^P41^XNL)/(T41^DC(73)) 

WG41R(IP)=WG41/WG41C 

WG41=WG41C 

COMPUTE DERIVATIVES AT STATION 4.1 

DW41=DC(30)^WG4+DC(72)^WBLHT-WG41 
DH4 = ( HP4 ^SQRT ( T4 ) ^XNH ) /DC ( 8 7 ) 

FAR4 1M= (FAR4M^ . 5 )/( . 5+ ( . 5+ . 04^FAR4M)^DC( 7 1)^WBLHT/WG4 ) 
T41M=DC(28)^T41 

195 CALL PROCOM(T41M,FAR41M,CP41,CV41,GM41,H41M) 

H41=H41M^DC(29) 

GM41M=(GM41-.5)/.5 

DTQW41=CWG4^H4/DC(26)-(DC(30)^WG4+DC(72)^WBLFiT)^H41+DC(68)^ 

1 WBLHT^H3-DC(27)^DH4^(WG4+DC(70)^WBLHT))/CV41+T41^DW41^GM41M 

COMPUTE DERIVATIVES AT STATION 6 

200 DW6=DC(35)^WA13“WG6+DC(80)^WBLLT+DCC36)^WG41 
DH4 1 = ( HP4 1 ^SQRT ( T4 1 ) ^XNL ) /DC ( 88 3 
T6M=DC(38)^T6 

FAR6M =(FAR41M^.25)/( .25+C .5+.04^FAR41M)^DC(37)^(WA13+DC(81)^ - 
1 WBLLT)/WG41) 

205 CALL PROCOM(T6M,FAR6M,CP6,CV6,GM6,H6M) 

H6=H6M/DC(39) 

GM6M=(GM6-.5)/.5 

DTQW6=(DC(31)^WA13^H13-(DC(351^WA13+DC(80)^WBLLT+DC(36)^WG41)* 

1 H6+DC(32)^WG41^H41+DC(77)^WBLLT^H3-DC(33)*DH41^(WG41+ 

2 DC(79)^WBLLT) )/CV6+T6^DW6^GM6M 

COMPUTE NOZZLE PERFORMANCE PARAMETERS 

210 P0C=( .5^P0A)/DC(5) 

P0RCIP)=P0/P0C 

P0=P0C 

P0QT7=DC(111)^P0/P7 

CDN=FUN1(N7,X7,P0QT7) 

CVN=FUN1L(X7) 

213 CALL NOZZL (PO ,P7 ,P0QT7 ,T7 , A8, AE,CDN,CVN,WG7M,FNM,XF) 

FGR ( IP ) = ( FG-XF ) / ( FNM“XF ) 

FNET=FNM-XMNM^SQRT(T0A)^WA2/DC(45) 

IF ( IP . EQ . 1 ) DACI (21) =FNET 
WG7C=(WG7M^DC(95))/.5 
WG7R(IP)=WG7/WG7C 
WG7=WG7C 

COMPUTE DERIVATIVES AT STATION 7 

DW7=DC(49)^WG6-WG7+DCC55)^WF7 
TAVAB=DC(89)^T6+DC(90)^T7 
215 CALL PROCOM(TAVAB,FAR6M,CPAB,CVAB,GMAB,HABM) 

HAB = HABM'^DC(52) 

T7M=DC(51)^T7 

FAR7M=FAR6M+(DC(50)^( . 04^FAR6M+ . 5 )^WF7 )/( . 5^WG6 ) 

220 CALL PROCOM(T7M,FAR7M,CP7>CV7,GM7,H7M) 

H7 = H7M>^DC(52) 

GM7M=(GM7-.5)/.5 



0133800 

0133900 

013^^000 

013^100 

013^200 

013^^300 

013^^00 

“013^500 
0134600 
0134700 
0134800 
0134900 
0 1 35000 
0135100 
0135200 
0135300 
0135400 
0135500 
0135600 
0 1357 00 
0135800 
0135900 
0 136 000 
0136100 
0 136200 
0136300 
0136400 
0136500 
0 1366 00 

0 1367 00 
0136800 
0136900 

01 370 00 
0137100 
0137200 
0137300 
0 137400 
0137500 

0 1376 00 
0137700 
0137800 
0137900 
0138000 
0138100 
0138200 
0138300 
0138400 
0138500 
0138600 
0138700 
0138800 
0138900 

01 39000 
0139100 
0139200 
0139300 
0139400 
0139500 
0139600 
0139700 
0139800 

""0139900 

0140000 

0140100 

0140200 

0140300 

0140400 

0140500 

0140600 

0140700 


IF(IP.GT.HDRY) GO TO 224 

ETAABR(IP)=1 

GO TO 230 

224 IF(FAR7M.GT. .39762) GO TO 225 

ETAAB=( ( .81226-.56042^FAR7n)^FAR7M+.25)/.5 
GO TO 226 

225 ETAAB=( ( . 7 533 1 - . 725 12^FAR7M)^FAR7M+ . 29 948 ) / . 5 

226 ETAABC=C-DC(49)^WG6^HAB+H7^(DC(49)^WG6+DC(55)^WF7) )/(DC(53)^WF7 ) 
ETAABR(IP)=ETAABC/ETAAB 

230 DTQW7=(DC(49 )^WG6^HAB-H7^(DC(49)*WG6+DC(55)^WF7)+DC(53)^WF7^ 

1 ETAAB)/CV7+T7^DW7^Gri7M 

C COMPUTE SPEED DERIVATIVES 

H2=H2M/DC(7) 

T22M=DC(19)^T22 

235 CALL PROCOM(T22M,0. >CP22,CV22,GM22,H22M) 

H22=H22M/DC(16) 

DH41QC=( (WA2~DC(18)^WA22)^(H13P-DC(9)^H2)/DCC41)+ 

1 WA22^(H22-DC( 11 )^H2)/DC(42) )/( . 5^ ( WG41+DCC 7 9 )^WBLLT)/DC( 93 ) ) 

DH41QR(IP)=DH41QC/DH41 

DH41TC=(DC(31)^WA13^H13-(DC(35)^WA13+DC(80)^WBLLT+DC(36)^ 

1 UG41)^H6+DC(32)^WG41^H41+DC(77)^WBLLT^H3)/(DC(33)^(WG41+ 

2 DC(79)^WBLLT)) 

DH41TR(IP)=DH41TC/DH41 

DXNL=( .5^DH41^(WG41+DC(79)^WBLLT)/DC(93)-(WA2-DC(18)^ 

1 WA22)^(H13P-DC(9)^H2)/DC(41)-WA22^(H22-DCC11)^H2)/DC(42) )/XNL 
DH4QC=(WA22^(H3P-DC(12)^H22)/DC(40))/( . 5^( WG4+DC( 70 )^WBLHT) 

1 /DCC94)) 

DH4QR(IP)=DH4QC/DH4 

DH4TC=CWG4>^H4/DC(26)-(DC(30)^WG4+DC(72)^WBLHT)^H41 + 

1 DC(68)^WBLHT^H3)/(DC(27)^(WG4+DCC70)^WBLHT)) 

DH4TR(IP)=DH4TC/DH4 

DXNH=( .5^DH4^(WG4+DC(70)^WBLHT)/DC(94)-WA22^(H3P-DC(12)^ 

1 H22)/DC(40) )/XNH 
RETURN 
END 
C 
C 

C 

C 

SUBROUTINE FLCONDCHT,XM0 ,TAS,PT,TT,PS,TS) 

C THIS ROUTINE CALCULATES FLIGHT CONDITION INFORMATION 
DIMENSION N1C3) ,N2(3) ,N3(3) 

DIMENSION XY(56),X1(11),Y1(11),X2(10),Y2C10),X3(7)>Y3(7) 
EQUIVALENCE (XI ( 1 ) , XY( 1 ) ) , ( Y1 ( 1 ) , XY Cl 2 ) ) , (X2 ( 1 ) > XY C 23 ) ) , 

^ CY2(1),XY(33)),(X3(1),XY(43)),(Y3(1),XY(50)) 

COMMON/INL/INLET 

DATA N1/2,1,11/,N2/3,1,10/,N3/4,1,7/ 

data XI /.O, .05, .1, .175, .275, .35, .425, .525, .625, 

1 .75, .99999/ 

DATA Y1 /. 7348, .6346, .54585, .43180, . 31 062 23922, 

1 .18176,. 12404, .08458, .05244, .02018/ 

DATA X2/ .00000, .11111, .22222, .33333, .44444, .55555, 

1 .66666,. 77777, .88888, .99999/ 

data Y2 /.O, .00046, .00517, .02138, .05853, .12780, 

1 .24 192,. 41493,. 66214,. 9999 9/ 

DATA X3/ .00000, .11111, .22222, .33333, .44444, .55555, 

1 .66666/ 

DATA Y3 /.O, .0514 9, .13126, .276 92, .33461, .45224, .57846/ 

TS=TAS-.2848^HT 

IFCTS.LT. . 38999) TS=. 38999 

IF(HT.LT.O.O) HT=0. 

PS=FUN1(N1,X1,HT) 

100 TTQS= .33333 + . 6 0 0 0 O^CXMO^XMO ) 

TR35=FUN1(N2,X2,TTQS) 

PTQS=TR35/. 85533 
ETAI=. 99999 

IF(INLET.NE.l) GO TO 110 
IFCXMO.LE. .33333) GO TO 110 
XMP=XM0-. 33333 
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01^0800 XPP=FUNl(K 3 ,X 3 ,XnP) 

01^*0900 ETAI= . 99999". 33050^XPP 

01^1000 110 TT= (TTQS^TS)/. 33333 

0141100 PT= (ETAI^PTQS^PS)/.05 

0141200 RETURN 

0141300 END 

0141400 C 

0141500 C 

0141600 

0141700 C 

0141800 C 

0141900 SUBROUTINE FOOR(N,XIN) 

0142000 C FUNCTION-OUT-OF-RANGE ROUTINE 

0142100 COnnON /lO/ IR,IW>IPNCH 

0142200 100 WRITE(IW,400) N,XIN 

0142300 400 FORriAT(/12HFUNCTION NO.,I3,19H INPUT OUT OF RANGE/6HXIN = ,F7.5/) 

0142400 RETURN 

0142500 END 

0142600 C 

0142700 C 

0142800 

0142900 C 

0143000 C 

0143100 FUNCTION FUNIL(F) 

0143200 C FUNCTION SECOND EVALUATION ROUTINE 

0143300 C^^^^^^XIN IS DUMMY ARGUMENT AND DOES NOT AFFECT RESULTS 

0143400 N=0 

0143500 FUN1L=FUN1(N,F,XIN) 

0143600 RETURN 

0143700 END 

0143800 C 

0143900 C 

0144000 

0144100 C 

0144200 C 

0144300 FUNCTION FUNl ( N , F , XIN ) 

0144400 C FUNCTION EVALUATION ROUTINE 

0144500 DIMENSION N(1),F(1) 

0144600 IF(N(1) .EQ.O) GO TO 200 

0144700 I=N(23 

0144800 NXP=N(3) 

0144900 100 X1=XIN-F(I) 

0145000 IF(X1.GT..0) GO TO 110 

0145100 IF(X1.EQ..0) GO TO 120 

0145200 IF(I.LE.l) GO TO 140 

0145300 1=1-1 

0145400 GO TO 100 

0145500 110 X2=XIN-F(I+1) 

0145600 IFCX2.lt. .0) GO TO ISO 

0145700 IFCX2.EQ..0) GO TO 130 

0145800 1=1+1 

0145900 IFCI.GE.NXP) GO TO 150 

0146000 X1=X2 

0146100 GO TO 110 

0146200 120 XFRAC=.0 

0146300 GO TO 190 

0146400 130 XFRAC=1.0 

0146500 GO TO 190 

0146600 140 XFRAC=.0 

0146700 GO TO 160 

0146800 150 XFRAC=1.0 

0146900 1=1-1 

0147000 160 CALL FOOR(N,XIN) 

0147100 GO TO 190 

0147200 180 XFRAC=X1/(X1-X2) 

0147300 190 N(2)=I 

0147400 200 I=I+NXP 

0147500 FUN1=F(I)+XFRAC^(F(I+1)-F(I)) 

0147600 RETURN 

0147700 END 
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01'f7800 C 
01^17900 C 
0198000 
0198100 C 
0198200 C 

0198300C FUNCTION MRP(N , F, XIN, YIN) 

0198900 C NAP EVALUATION ROUTINE 

0198500C DINENSION N(1),F(1) 

0198600C REAL NAP 

0198700C IF(N(1) .EQ.O) GO TO 900 

0198800C I=N(2) 

0198900C J=N(3) 

0199000C NXP=N(9) 

0199100C NYC=N(5) 

0199200C NPROD=NYC>^NXP 

0199300C 100 Y1=YIN-F(J) 

0199900C IF(Y1.GT..0) GO TO 110 

0199500C IFCY1.EQ..0) GO TO 120 

0199600C IF(J.LE.l) GO TO 190 

0199700C J=J-1 

0 19980 OC GO TO 100 

0199900C no Y2=YIN-F(J + 1) 

0150000C IF(Y2.LT..0) GO TO 180 

0150100C IF(Y2.EQ..0) GO TO 130 

0150200C J=J+1 

0150300C IF(J.GE.NYC) GO TO 150 

0150900C Y1=Y2 

0150500C GO TO 110 

0150600C 120 YINCR=.0 

0150700C GO TO 190 

0150800C 130 YINCR=. 99999 

0150900C GO TO 190 

0151000C 190 YINCR=.0 

0151100C GO TO 160 

0151200C 150 YINCR=. 99999 

0151300C J=J-1 

0151900C 160 CALL NOOR(N,XIN, YIN) 

0151500C GO TO 190 

0151600C 180 YINCR=Y1/(Y1-Y2) 

0151700C 190 KX=J^NXP+NYC+I 

0151800C LX=KX-NXP 

0151900C 200 XLO=F(LX)+YINCR^(F(KX)-F(LX)) 

0152000C IF(XIN.GT.XLO) GO TO 210 

0152100C IF(XIN.EQ.XLO) GO TO 220 

0152200C IF(I.LE.l) GO TO 290 

0152300C 1=1-1 

0152900C LX=LX-1 

0152500C KX=KX-1 

0152600C GO TO 200 

0152700C 210 XHI=F(LX+1)+YINCR^(F(KX+1)-F(LX+D) 

0152800C IF(XIN.LT.XHI) GO TO 280 

0152900C IF(XIN.EQ.XHI) GO TO 230 

0153000C 1=1+1 

0153100C IF(I.GE.NXP) GO TO 250 

0153200C LX=LX+1 

0153300C KX=KX+1 

0153900C XLO=XHI 

0153500C GO TO 210 

0153600C 220 XFRAC=.0 

0153700C GO TO 300 

0153800C 230 XFRAC=. 99999 

0153900C GO TO 300 

0159000C 290 XFRAC=.0 

0159100C GO TO 260 

0159200C 250 XFRAC=. 99999 

0159300C 1=1-1 

0159900C 260 CALL NOOR(N,XIN, YIN) 

0159500C GO TO 300 

0159600C 280 XFRAC= (XIN-XLO)/(XHI-XLO) 

0159700C 300 N(3)=J 

0159800C N(2)=I 

0159900C LZ=LX+NPROD 

0155000C KZ=LZ+NXP 

0155100C 350 ZL=F(LZ)+YINCR«(F(KZ)-F(LZ)) 
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0155200C ZH=F(LZ+1 )+YINCR^(F(KZ+l)-F(LZ+l) ) 

0155300C mP=ZL+XFRAC^(ZH-ZL) 

0155^00C RETURN 

0155500C 400 LZ=LZ+NPROD 

0155600C KZ=LZ+NXP 

0155700C GO TO 350 

0155800C END 

0155900 C 
0156000 C 
““0156100 
0156200 C 
0156300 C 

0156400 SUBROUTINE MAPIN 

0156500 C THE ROUTINE DOES THE INITIALIZATION AND READ IN OF MAP DATA 

0156600 C ALSO CALCULATES SOME DIGITAL COEFFICIENTS 

0156700 COMMON /IO/IR,IU,IPNCH 

0156800 COMMON /NMAPS/Fl ( 322 ) , F2 ( 322 ) , F3 (854 ) , F4 (518 ) , F5(224 ) ,F6 (224 ) , - 

0156900 1 N1(5),N2(5),N3(5),N4(5),N5(5),N6(5) 

0157000 COMMON /AVARS/ CC( 50 ) , DACK 24 ) , DC( 125 ) , XC( 6 1 , YC( 6 ) , ZC( 12 ) , UDC( 125 ) 

0157100 COMMON /SVARS/ BSCIVV, BSRCVV, SFA8 , SFAE, SFALT.SFCIVV ,SFDH4 , SFDH41 , - 

0157200 A SFFG,SFFN,SFP0,SFP13,SFP2,SFP22,SFP3,SFP4,SFP41,- 

0157300 B SFP5,SFP6,SFP7,SFRCVV,SFT0,SFT13,SFT2,SFT22,SFT3,- 

0157400 C SFT4,SFT41,SFT6,SFT7,SFVEL,SFWA13,SFWA2,SFWA22,- 

0157500 D SFWA3,SFWF4,SFWF7,SFWG4,SFWG41,SFWG6,SFWG7,SFXMN, - 

0157600 E SFXNH.SFXNL 

0157700 WRITE(IW,500) 

0157800 C^^^^^^READ AND SCALING OF PERFORMANCE DATA 
0157900 CALL DATAIN(N1 ,F1 ) 

0158000 DO 10 N=l,2 

0158100 10 READ(IR,501) XC(N) , YC(N) ,ZC(N) 

0158200 READ(IR,501) XC( 3 ) , YC( 3 ) , (ZC(N) , N=3 , 6 ) 

0158300 DO 15 N=4,6 

0158400 K1=2^N-1 

0158500 K2=2«N 

0158600 15 READ(IR,501) XC( N) , YC(N) ,ZC(K1 ) , ZC(K2 ) 

0158700 C^’^^^^^READ SCALE FACTORS 

0158800 20 READ(IR,502) SFPO , SFP2 , SFPl 3 , SFP22 , SFP3 ,SFP4 ,SFP41 ,SFP5 ,SFP6 ,SFP7 , - 

0158900 1 SFT2,SFT13,SFT22,SFT3,SFT4,SFT41,SFT6,SFT7,SFWA2,SFUA13,SFWA22, 

0159000 2 SFWA3,SFWG4,SFWG41,SFWG6,SFWG7,SFDH4,SFDH41,SFFN,SFXNL,SFXNH, 

0159100 3 SFWF4,SFWF7,SFA8,SFAE,SFALT,SFXMN,BSCIVV,SFCIVV,BSRCVV,SFRCVV 

0159200 4 ,SFVEL,SFT0,SFFG 

0159300 WRITE(IW,503) 

0159400 WRITE(IW,504) 

0159500 WRITE(IW,505) 

0159600 WRITE(IW,506) 

0159700 WRITE(IW,507) 

0159800 WRITE(IW,508) 

0159900 WRITE(IU,509) 

0160000 WRITE(IW,510) 

0160100 WRITE(IW,511) 

0160200 WRITE(IW,512) 

0160300 URITE(IW,513) 

0160400 WRITE(IU,514) 

0160500 WRITE(IW,502) SFPO ,SFP2 ,SFP13 ,SFP22 ,SFP3 , SFP4 , SFP41 , SFP5 , SFP6 , 

0160600 1 SFP7,SFT2,SFT13,SFT22,SFT3,SFT4,SFT41,SFT6,SFT7,SFWA2,SFUA13, 

0160700 2 SFWA22,SFWA3,SFWG4,SFWG41,SFWG6,SFUG7,SFDH4,SFDH41,SFFN,SFXNL, 

0160800 3 SFXNH,SFWF4,SFWF7,SFA8,SFAE,SFALT,SFXMN,BSCIVV,SFCIVV,BSRCVV, 

0160900 4 SFRCVV,SFVEL.SFT0,SFFG 

0161000 C^^’^^^^COMPUTE DIGITAL COEFFICIENTS FROM SCALE FACTORS 

0161100 DO 25 1=1,125 

0161200 DC(I)=.0 

0161300 25 CONTINUE 

0161400 DC(1)= SFALT/80000. 

■"0161500 DC(2)= SFXMN/3.0 

0161600 DC( 3)=SFP2/80 . 

0161700 DC(4)=SFT2/2000 . 

0161800 DC(5)=SFP0/40 . 

0161900 DC(6)=.4^DC(4) 

0162000 DC(7)=SFT2/3000. 

0162100 DC(8)=SFP13/(15.^SFP2) 

0162200 DC(9)=SFT2/SFT13 

0162300 DC(10)=SFP22/(15.^SFP2) 

0162400 DC(11)=SFT2/SFT22 

0162500 DC( 12)=SFT22/SFT3 


91 



0162600 
0162700 
0162800 
0162900 
0163000 
0163100 
0163200 
0163300 
0163^00 
0163500 
0163600 
0163700 
0163800 
0163900 
016^+000 
0 1 6 1 0 0 
016^200 
0 1 6 3 0 0 
0164^00 
016^500 
016^600 
016^700 
016^800 
016^900 
0165000 
0165100 
0165200 
0165300 
0165^00 
0165500 
0165600 
0165700 
0165800 
0 165900 
0 166 0 00 
0166100 
0166200 
0 166 300 
0166^00 
0 1 6650 0 
0 166600 
01667 0 0 
0166800 
"0166900 
0 167000 
0167100 
0167200 
0167300 
0167^00 
0167500 
0 1676 00 
0167700 
0167800 
0167900 
0168000 
0168100 
0168200 
0168300 
0168^00 
0168500 
0168600 
0168700 
0168800 
0168900 
0169000C 
0169100 C 
0169200C 
0169300CC 
0169400C 
0169500C 
0169600C 
0169700C 
0169800 C 
0169900 C 


500 

501 

502 

503 
50 ^+ 

505 

506 

507 

508 

509 

510 

511 

512 

513 
51 ^ 


DC(13)=SFT3/5000. 

DCC 1^ )=SFP3/( 15 .*SFP22) 

DC(15)=SFT13/3000. 

DC(16)=SFT22/3000. 

DC(17)=SFT3/3000. 

DC(18)=SFWA22/SFWA2 

DC(19)=.6^DC(16) 

DCC20 )=SFWF^/( . 08^SFWA3) 

DC(21)=SFT^/5000 . 

DCC22)=3000 ./SFT^ 

DC( 23 )=SFWA3/SFWG<^ 

DC(2^) = (37000. ^SFWF<4 ) / ( SFT^^SFWG^ ) 

DCC25)=SFT3/SFT^ 

DC(26) = (SFT^fl^SFWG^l)/(SFT<^^SFWG4) 

DC(27 )=(SFDH^^SFWG^)/( . 5^SFT^1^SFWG^1 ) 

DC(28)=SFT^l/5000 . 

DC(29)=3000 ,/SFT^l 

DC( 30 )=SFWG<t/SFWG^l 

DC ( 3 1 ) = ( SFT 1 3^SFWA 1 3 ) / ( SFT6 ^SFWG6 ) 

DC(32) = (SFT^tl^SFUG41)/(SFT6^SFWG6) 

DC(33) = (SFDH<+l^SFWG41)/( . 5^SFT6^SFWG6 ) 

DC(34)=.6^DC(15) 

DC(35)=SFWA13/SFUG6 
DC(36)=SFWG41/SFWG6 
DC(37) = .5^SFWA13/SFWG‘^1 
DCC38)=SFT6/5000. 

DC(39)=SFT6/3000 . 

DC ( 0 ) = ( SFDH^^SFWG4 )/ ( . 5^SFT3^SFWA22 ) 

DC(‘^1) = (SFDH^1^SFWG^+1 )/( . S^SFTl 3^SFWA2 ) 
DC(^2)=(SFDH41^SFWG41)/( .5^SFT22^SFWA22) 
DC(^3)=SFWA3/SFWA22 
DC(^4)=SFWF^/SFWG^ 

DCC^5)=SFFN/(SFXnN^SQRTCSFT0)^SFWA2^1 ,52317) 

DC(‘!i9)=SFWG6/SFWG7 

DC(50)=SFWF7/( , 08^SFUG6) 

DCC51 )=SFT7/5000 . 

DC(52)=3000 ./SFT7 

DC( 53 ) = ( 37 0 0 0 . ^SFWF7 )/(SFT7^SFWG7 ) 

DC( 5<^ )=SFT6/SFT7 
DC(55)=SFWF7/SFWG7 
DCC56 )=SFWA13/SFWA2 

FORMAT(3Xr36HCOMPONENT AND VARIABLE GEOMETRY DATA///) 
FORMATC 6F8 , 2) 

FORMAT(5F12.5) 

FORMATC IHl) 

FORMATC 3X,23HSCALE FACTOR INPUT DATA/) 

FORMATC6X,2HP0, 10X,2HP2, 10X,3HP13,9X,3HP22, 9X,2HP3) 
FORMATC 6X,2HP^,1 OX, 3HP^1,9X,2HP5>10X>2HP6,10X,2HP7) 
FORMATC 6X,2HT2,1 OX, 3HT13,9X,3HT22,9X,2HT3,10X,2HT4) 
FORMATC6X,3HT^1,9X,2HT6,10X,2HT7,10X,3HWA2,9X,^HWA13) 
FORMATC 6X, ^HWA22, 8X, 3HWA3, 9X,3HWG‘f,9X,‘^HWG41,8X,3HWG6) 
FORMATC 6X, 3HWG7 , 9X, 3HDH‘+ , 9X, ^HDH4 1 , 8X, 2HFN , 1 OX, 3HXNL) 
FORMATC 6X, 3HXNH, 9X, 3HWF‘^, 9X, 3HWF7 , 9X, 2HA8 , lOX, 2HAE) 
FORMATC 6X, 3HALT, 9X, 3HXMN, 9X , 5HBCIVV, 7X , 4HCIVV, 8X, 5HBRCVV) 
FORMATC 6X, ^HRCVV,8X, 3HVEL, 9X, 2HT0 , lOX, 2HFG) 

FORMATC/) 

RETURN 

END 


C 

C 

FUNCTION MAPLCF) 

MAP SECOND EVALUATION ROUTINE 
REAL MAPL,MAP 

XIN AND YIN ARE DUMMY ARGUMENTS AND DO NOT AFFECT RESULTS 

MAPL=MAP ( N , F , XIN , YIN ) 

RETURN 
END 
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0170000 
0170100 C 
0170200 C 

0170300C SUBROUTINE MOORCN.XIN 

0170^00 C MAP-OUT-OF-RANGE ROUT! 

0 1 7 0 5 0 0 C COnnON/IO/IR , IW , IPHCH 

0170600C WRITE(IW,600) N 

0 170700C 6 00 FORriAT(3X>7HMAP NO., I 

0170800C WRITE(IW,601) XIN,YIN 

0170900C 601 FORMAT(3X,6HXIN = ,F7 

0171000C RETURN 

0171100C END 

0171200 C 
0171300 C 
0 1 7 1 0 0 
0171500 C 


SUBROUTINE MOOR (N,XIN, YIN) 

MAP-OUT-OF-RANGE ROUTINE 
COMMON/IO/IR , IW , IPHCH 
WRITE(IW,600) N 

600 FORMAT(3X,7HMAP NO.,I3,20H INPUTS OUT OF RANGE) 
WRITE(IW,601) XIN,YIN 

601 FORMAT(3X,6HXIN = ,F7.5,8H YIN = ,F7.5/) 

RETURN 

END 


C171600 C 
0171700 
0171800 C 
0171900 C 
0172000 
0172100 
0172200 
'0172300 
0172^00 
0172500 
0172600 
0172700 
0172800 
0172900 
0173000 
0173100 
0173200 
0173300 
0173^00 
0173500 
0173600 
0173700 
0173800 
0173900 
017^000 
0 1 7 <4 1 0 0 
017^200 
017^300 
017‘^»^00 
017^500 
017^600 
017^700 
017^^800 
017^900 
0175000 
0175100 
0175200 
0175300 
0175<!t00 
0 1 75500 
0175600 C 
0 1757 00 
0175800 
0175900 C 
0 176 0 00 
0176100 
0 17620 0 
0 176 300 
0176^00 
0176500 
0 17660 0 
0176700 
0176800 C 
0 1 76 900 
017 7 0 0 0 
0177100 
0177200 
0 1 77300 


SUBROUTINE NOZZL (PO ,P7 ,P0QT7 ,T7 , A7 , A8 ,CD7 ,CV8 ,W7 ,F8 ,XF) 

THIS ROUTINE CALCULATES NOZZLE INFORMATION FOR 

CONVERGENT-DIVERGENT NOZZLE COFIGURATIONS 
COMMON /AVARS/ CC( 5 0 ) , DACK 24 ) , DC( 1 25 ) , XC( 6 ) , YC( 6 ) , ZC( 12 ) , UDC( 125 ) 
DIMENSION Nl(3) ,N2(3) ,N3(3) 

DIMENSION XY(135),X1(15),Y1(15) ,X2(15) ,Y21(15),Y22(15) , 

X X3(15),Y31(15),Y32(15),Y33(15) 

EQUIVALENCE (XI ( 1 ) ,XY( 1 ) ) , ( Y1 ( 1 ) ,XY( 16 ) ) , (X2( 1 ) ,XYC31 ) ) , 

^ (Y21(1),XY(46)),(Y22(1) ,XY(61)),(X3(1),XY(76)), 

^ (Y31(l) ,XY(9D), (Y32(l) ,XY(106)), (Y33(l) ,XY(12D) 

DATA Nl/6, 1, 15/,N2/7,1, 15/,N3/8,1,15/ 

DATA XI/ 

^ .50000 , .50035, .50155, .50645, .51185, .52350, .53<t05, .5<t715, 

« .56780,. 594 10,. 64320,. 70090,. 750 35,. 91145, 1.0000/ 

DATA Yl/ 

« .52828, .54691, .56578, .60412, .63000, .66905, .69507, .72092, 

^ .75283, .7840 0, .8258 9, .85958, .88065, . 92312, . 93611/ 

DATA X2/ 

^ .52828, .54691, .56578, .60412, .63000, .66905, .69507, .72092, 

^ .7528 3, .7840 0, .8258 9,. 859 58,. 88 065,. 92312,. 936 11/ 

DATA Y21/ 

^ .50000, .48740, .47462, .44851, .43070, .40338, .38479, .36589, 

^ .34 187,. 31740,. 28246,. 25192,. 231 28,. 18410, . 166 98/ 

DATA Y22/ 

^ .50000, .50035, .50155, .50645, .51185, .52350, .53405, .54715, 

^ . 56780, .59410 , .64320, .70090, .75035, .91145,1.0000/ 

DATA X3/ 

^ .50000,. 50395,. 50870,. 51520,. 52335,. 53315, .54450, .55745, 

^ .58810, .60 57 5,. 64610,. 71950,. 77760,. 88 000, 1.0000/ 

DATA Y31/ 

^ .20000,. 22000,. 23 000,. 24000,. 25000,. 26000,. 27 000,. 28000, 

^ .30000,. 31000,. 33000,. 36000,. 38 000,. 41000, .43 942/ 

DATA Y32/ 

^ .52828, .468 35,. 43 983,. 412 38,. 38606,. 36092,. 3 36 97, .31424, 

^ .27240, .25320, .21839,. 17404,. 14924,. 11823, .09396/ 

DATA Y33/ ~ 

^ .50000, .54062, .56015, .57915, .59760, .61555, . 63300 ,. 64995, 

^ .68230,. 69775,. 72720,. 76800,. 79305,. 82765, .85835/ 

XF=0 . 0 

^5<CALC AREA RATIO 

A8Q7 = DC(110)^A8/A7 
PEQ7=FUN1(N1,X1,A8Q7) 

^^^SUBSONIC FLOW 
ATXX =A7 

IF (P0QT7 .LT. PEQ7) GO TO 10 
XMX=FUN1(N2,X2,P0QT7) 

PTOL = ABS(P0QT7 - PEQ7 ) 

IF (PTOL .LE. .0005) GO TO 100 
AEQTXX=FUN1L(X2) 

ATXX = A8/AEQTXX 
GO TO 100 

^)«^SUPERSONIC FLOW AND SONIC FLOW FOR CONV-ONLY NOZZLE 
10 IF (A8Q7 .LE. 0.5) GO TO 30 
XMN=FUN1(N3,X3,A8Q7 ) 

PEQ7=FUN1L(X3) 

POYQX=(XMN>^(XnN/.72217-. 07 958)/.4)+. 08956 
PYQX=(XMN>^(Xt1N/.857l4)/.4)-. 01667 


.64610, 

.23000 , 
.33000, 

.43983, 

.21839, 


.44851, .4307 0, .40 338, . 3847 9 ,. 36589 , 
.25192, .23128, .18410, .16698/ 

.50645, .51185, .52350, .53405, .54715, 
.70090,. 750 35,. 91145, 1.000 0/ 

.51520, .52335, .53315, . 54450 ,. 55745 , 
.71 95 0,. 77760,. 88 000, 1.000 0/ 

.24000,. 25000,. 26000,. 27 000,. 28000, 
.36000,. 38 000,. 41000, .43942/ 

.412 38,. 38606,. 36092,. 3 36 97, .31424, 
.17404, .14924, .11823, .09396/ 


.56015, .57915, .59760, 
.72720, .76800, .79305, 


,61555, .63300, .64995, 
.82765, .85835/ 
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0 1 7 7 0 0 
0177500 
0177600 
"0177700 
0177800 
0177900 
0178000 
0178100 
0178200 
0178300 
0178 ^ f 00 
0178500 
0178600 
0178700 
0178800 

0178900 
0179000 
0179100 
0179200 
0179300 
0179^00 
0179500 
0179600 
0179700 
0179800 
0179900 
0180000 
0180100 
0180200 
0180300 
0 1 8 0 0 0 
0180500 
0180600 
0180700 
0180800 
0180900 
0181000 
0181100 
0181200 
0181300 
0181^00 
0181500 
0181600 
0181700 
0181800 
0181900 
0182000 
0182100 
0182200 
0182300 
0182^+00 
0182500 
0182600 
0182700 
0182800 
0182900 
0183000 
0183100 
0183200 
0 183300 
0183^00 
0183500 
0183600 
0183700 
0183800 
0 183900 
0184000 
0184100 
0184200 
0184300 
0 184400 
0184500 
0184600 


POYQOX=(XMN^(-XMH/.87600+.40163)/.2)+.83626 
PYQT = (PYQX POYQOX)/POYQX 
IF (P0QT7 .GT. PYQT) GO TO 40 
XMX=FUH1L(X3) 

C ^REGIME V 

20 PE = P7^PEQ7/DC(lin 

XF=(A8>^(PE-P0 ) )^DC(112) 

GO TO 100 
30 XMX=0.5 
GO TO 20 

C ^REGIME III 

40 IF(ABS(A8Q7-. 56345) .IE, .0005) GO TO 50 

XMX= .85585 + ( P0QT7^ ( ( - . 4 1 254 ) + .17418 * P0QT7))/ .4 
XSHFT =0.0 

IF (A8Q7 .GT. .6) XSHFT = .61755 + A8Q7 *(A8Q7^(A8Q7^(- . 12575)+ . 38380 )+ 
(-.44243))/. 25 

IFCA8Q7 .LT. .6) XSHFT = ( - . 53378*A8Q7 ) + , 3 1 9 1 0 
xrix=xnx+xsHFT 

GO TO 100 

50 XMX= .88080+(P0QT7^((-. 41488)+. 17255^P0QT7))/ 4 
C ^^^VELOCITY, FLOW, AMD THRUST CALCULATIOMS 
100 VE = XnX>^SQRT(T7)^CV8/DC(113) 

105 W7 = (ATXX^P7)/SQRT(T7) ^ CD7 / DC(115) 

F8 = W7^VE/DC(116) + XF 
500 RETURN 
END 
C 

c 

C 

C 


COMMON 

COMMON 

COMMON 

COMMON 


/AVARS/ 

/RVARS/ 


SUBROUTINE PRINT ( IPRINT ) 

C THIS ROUTINE PRINTS THE OPERATING POINT DATA, 

C ADC AND DAC VALUES, SCALED AND UNSCALED 

C ENGINE VARIABLES, AND ERROR RATIO INFORMATION 

DIMENSION DDC(125),GLD(125),ZD(125),FD(125) 

INTEGER PLA , ADDR , GAIN (10), GLD , ZD , FD , KBLWHT , KBLWLT 
COMMON /INL/ INLET 

/lO/ IR,IW,IPNCH 

/IVARS/ IP, JP, JPA, JPD,KBH,f<BL,KBV,HAUG,NDRY,NTOTAL,PLA 

CC(50 ) ,DACI(24 ) , DC( 1 25 ) , XC ( 6 ) , YC( 6 ) , ZC( 1 2 ) ,UDC( 125) 
CBLHR(50),CBLLR(50),CBLVR(50),DH4QR(50),DH4TR(50),- 

DH41QR( 50 ) , DH4 1TR( 5 0 ) , DPI 3R( 50 ) ,DP6R( 50 ) , ETAABR( 5 0 ) , ■ 
ETABR(50 ) ,FGR(50 ) ,P0RC50 ) ,P2R(50 ) ,P22R(50 ) ,- 
P5R(50) ,T13PR(50 ) ,T2R(50) ,T22R(50) ,T5PR(50) 

WA2R(50 ) ,WA22R(50) ,WA3R(50 ) , WG4R( 50 ) , WG41R( 50 ) ,- 
WG7R(50) 

COMMON /ANVARS/ AQLl 3 , AQL6 , SFT , SFWl 3 , SFW3 , SFW4 , SFW4 1 , SFW6 , SFW7 , 

W 1 3 , W3 , W4 , W4 1 , W6 , W7 , SWi 3 , SW3 , SW4 , SW4 1 , SW6 , SW7 , 

V13, V3, V4, V41 , V6,V7 ,XIH,XIL,PADR(53) ,PVAL(53) , 
IG(10),AADR(16) 

COMMON /SVARS/ BSCIVV,BSRCVV,SFA8,SFAE,SFALT,SFCIVV,SFDH4,SFDH41,- 
SFFG,SFFN,SFP0,SFP13,SFP2,SFP22,SFP3,SFP4,SFP41,- 
SFP5,SFP6 ,SFP7 ,SFRCVV,SFT0 ,SFT13,SFT2,SFT22,SFT3,- 
SFT4 , SFT4 1 , SFT6 , SFT7 , SFVEL , SFWAl 3 , SFWA2 , SFWA2 2 , - 
SFWA3 , SFWF4 , SFWF7 , SFWG4 , SFWG4 1 , SFWG6 , SFWG7 , SFXMN, - 
SFXNH,SFXNL 

COMMON /XVARS/ A1 ( 5 0 ) , A2 ( 50 ) , A3 ( 5 0 ) , A4 ( 5 0 ) , A5 ( 50 ) , A6 ( 50 ) , A7 ( 50 ) , - 

A8 1(50), A9(50),A1 0(50), A1 1(50 ),A12(50),A1 3(50), 

A1 4(50 ),A1 5(50 ),A1 6(50 ),A17(50),A18(50),A1 9(50), 
A20(50),A21(50) ,A22(50),A23(50),A24(50),A25(50), - 

A2 6 ( 5 0 ) 

EQUIVALENCE 


1 

A 

B 

A 

B 

C 

D 

E 

1 

2 

3 

4 

1 

] 

2 

2 

3 

4 

5 

I 

7 

8 
9 


EQUIVALENCE 


EQUIVALENCE 


(AS 

r 

A1 C 

1)),(AE 

AlC 

2)), (ALT 

, 

Al( 

3)), - 

(ALTM 

r 

Al( 







(CD7 

9 

A3( 

1)),(CDN 

A3( 

2)), (CIVV 

9 

A3( 

3)), - 

(CP13 

f 

A3( 

«i)),(CP13P , 

A3( 

5)),(CP2 

9 

A3( 

6)), - 

(CP22 

9 

A3i: 

7)),(CP3 

A3( 

8) ) , (CP3P 

9 

A3( 

9)), - 

(CP't 

9 

A3C 

10)),(CP41 , 

A3( 

11) ), (CP6 

9 

A3( 

12)), - 

(CP7 

9 

A3( 

13)),(CPAB , 

A3( 

14)),(CPB 

9 

A3( 

15)), - 

(CPHC 

9 

A3( 

16) ) , (CSHIFT, 

A3( 

17) ) , (CV13 

9 

A3( 

18) ) 

(CV13P 

9 

A3( 

19)),(CV2 

A3( 

20)),(CV22 

9 

A3( 

21)), - 

(CV3 

9 

A3( 

22)),(CV3P , 

A3( 

23)),(CV'i 

9 

A3( 

24)), - 

(CV<+1 

9 

A3( 

25)),(CV6 

A3( 

26)),(CV7 

9 

A3( 

27)), - 

(CV8 

9 

A3( 

28)),(CVAB , 

A3( 

29) ) , (CVB 

9 

A3( 

30)), - 
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018^^700 

018^800 

018^1900 

0185000 

0185100 

0185200 

0185300 

0185^00 

0185500 

0185600 

0185700 

0185800 

0185900 

0186000 

0186100 

0186200 

0186300 

0136^00 

0186500 

0186600 

0186700 

0186800 

0186900 

0187000 

0187100 

0187200 

0187300 

0187*^00 

0187500 

0187600 

0187700 

0187800 

0187900 

0188000 

0188100 

0188200 

0188300 

0188900 

‘0188500 

0188600 

0188700 

0188800 

0188900 

0189000 

0189100 

0189200 

0189300 

0189900 

0189500 

0189600 

0189700 

0189800 

0189900 

0190000 

0190100 

0190200 

0190300 

0190900 

0190500 

0190600 

0190700 

0190800 

0190900 

0191000 

0191100 

0191200 

0191300 

0191900 

0191500 

0191600 

0191700 

0191800 

0191900 

0192000 


A 

(CVHC 

, A3( 

31)), (CVN 

, A3( 

32)) 


EQUIVALENCE 

(DH<+ 

, A4( 

D), (DH-^l 

, A<+( 

2)),(DTQW13, A4( 

3)), 

1 

(DTQW3 

, A4( 

4)),(DTQW<t 

, A4( 

5)),(DTQW41, A4( 

6)), 

2 

(DTQW6 

, A‘+( 

7) ) , (DTQW7 

, A<^( 

8)),(DW13 , A4( 

9)), 

3 

(DW3 

, A-tC 

10)),(DW<+ 

, A^( 

11)),(DW41 , A4( 

12)), 

9 

(DW6 

, A^( 

13)),(DW7 

, A^( 

14)),(DXNH , A4( 

15)), 

5 

(DXNL 

, A4( 

16)) 




EQUIVALENCE 

(ETAAB 

, A5( 

1)),(ETAB 

, A5( 

2)),(ETAHCM, A5( 

3)), 

1 

(ETAIFM 

, A5( 

4)),(ETAOFM 

, A5( 

5)) 


EQUIVALENCE 

(FAR^n 

, A6( 

1)),(FAR^1M 

, A6( 

2)),(FAR6M , A6( 

3)), 

1 

(FAR7M 

, A6C 

4)),(FG 

, A6( 

5)),(FGM3 , A6( 

6)), 

2 

(FGPT3 

, A6( 

7 ) ) , ( FN 

, A6( 

8)),(FNET , A6( 

9)), 

3 

(FHtI 

, A6( 

10) ) , (FSHIFT 

, A6( 

ID) 


EQUIVALENCE 

(GM13 

, A7( 

1)), (GM13M 

, A7( 

2)),(GM13P , A7( 

3)), 

1 

(Gt12 

, A7( 

^)),(GM22 

, A7( 

5)),(GM3 , A7( 

6)), 

2 

(GM3M 

, A7( 

7)),(Gt13P 

, A7( 

8)),(GM4 , A7( 

9)), 

3 

(Gmi 

, A7( 

10) ) , (GM'+n 

, A7( 

11)),(GM41M , A7( 

12)), 

9 

(Gt16 

, A7( 

13)),(GM6M 

, A7( 

14)),(GM7 , A7( 

15)), 

5 

(GM7M 

, A7( 

16) ) , (GMAB 

, A7( 

17)),(GMB , A7( 

18)), 

6 

(GMHC 

, A7( 

19)) 




EQUIVALENCE 

(H13 

,A81( 

1)),(H13M 

,A81( 

2)),(H13P ,A81( 

3)), 

1 

(H13PM 

,A81( 

<i)),(H2 

,A81( 

5)),(H22 ,A81( 

6)), 

2 

(H2t1 

,A81( 

7)),(H22M 

,AS1( 

S)),(H3 ,A81( 

9)), 

3 

(H3M 

,A81( 

10)),(H3P 

,AS1( 

11)),(H3PM ,A81( 

12)), 

9 

(H<i 

,A81( 

13) ) , (H'tl 

,A81( 

14)),(H4M ,A81( 

15)), 

5 

(H'tin 

,A81( 

16)), (H6 

,A81( 

17)),(H6M ,A81( 

18)), 

6 

(H7 

,A81( 

19) ) , (H7M 

,A81( 

20)),(HAB ,A81( 

21)), 

7 

(HABM 

,A81( 

22)), (HB 

,A81( 

23)),(HBM ,A81( 

24)), 

8 

(HHCM 

,A81( 

25)),(HP'^ 

,A81( 

26)),(HP41 ,A81( 

27)) 

EQUIVALENCE 

(KBLWHT 

,A11( 

D), (KBLWLT 

,A11( 

2)) 


EQUIVALENCE 

(PE 

,A16( 

1)),(P0 

,A16( 

2)),(P0A ,A16( 

3)), 

1 

(P0QT7 

,A16( 

4)),(P13 

,A16( 

5)),(P2 ,A16( 

6)), 

2 

(P2A 

,A16( 

7) ) , (P22 

,A16( 

8)),(P22Q2M,A16( 

9)), 

3 

(P3 

,A16( 

10)), (P4 

,A16( 

11)),(P41 ,A16( 

12)), 

9 

(P5 

,A16( 

13)), (P6 

,A16( 

14)), (P7 ,A16( 

15)), 

5 

(PRHC 

,A16( 

16)), (PRIF 

,A16( 

17)), (PROF ,A16( 

18)) 

EQUIVALENCE 

(RCVV 

,A18( 

D), (RTT2 

,A18( 

2)),(RTT22 ,A18( 

3)), 

1 

(RTT^ 

,A18( 

■^) ) , (RTT^l 

,A18( 

5)) 


EQUIVALENCE 

(TOA 

,A20( 

D), (T13 

,A20( 

2)),(T13M ,A20( 

3)), 

1 

(T13P 

,A20( 

-i) ) , (T13PM 

,A20( 

5)),(T2 ,A20( 

6)), 

2 

(T2A 

,A20( 

7) ) , (T2M 

,A20( 

8)),(T22 ,A20( 

9)), 

3 

(T22M 

,A20( 

10) ) , (T3 

,A20( 

11)),(T3M ,A20( 

12)), 

9 

(T3P 

,A20( 

13)),(T3PM 

,A20( 

14)), (T4 ,A20( 

15)), 

5 

(T'^M 

,A20( 

16)),(T^1 

,A20( 

17)),(T41M ,A20( 

18)), 

6 

(T6 

,A20( 

19)),(T6M 

,A20( 

20)), (T7 ,A20( 

21)), 

7 

(T7M 

,A20( 

22) ) , (TAM 

,A20( 

23)),(TAVAB ,A20( 

24)), 

8 

(TAVB 

,A20( 

25) ) , (TAVHC 

,A20( 

26) ) , (TRHCM1,A20( 

27)), 

9 

(TRIFMl 

,A20( 

28) ) , (TROFMl 

,A20( 

29) ) 


EQUIVALENCE 

(WA13 

,A23( 

D), (WA2 

,A23( 

2)),(WA22 ,A23( 

3)), 

1 

(WA3 

,A23( 

4) ) , (WAR2 

,A23( 

5)),(MAR2M ,A23( 

6)), 

2 

(WAR22 

,A23( 

7) ) , (WAR22M 

1,A23( 

8)),(WBLHT ,A23( 

9)), 

3 

(WBLLT 

,A23( 

10)),(WBLOV 

,A23( 

11)),(UF4 ,A23( 

12)), 

9 

(UF7 

,A23( 

13)),(WG4 

,A23( 

14)),(UG41 ,A23( 

15)), 

5 

(MG6 

,A23( 

16)),(WG7 

,A23( 

17)),(WG7M ,A23( 

18)), 

6 

(UP't 

,A23( 

19)),(UP41 

,A23( 

20)) 


EQUIVALENCE 

(X3 

,A24( 

1)),(X4 

,A24( 

2)),(X5 ,A24( 

3)), 

1 

(X6 

,A2^( 

<i)),(XF 

,A2^( 

5)),(XMN ,A24( 

6)), 

2 

(XMNM 

,A24( 

7) ) , (XNH 

,A24( 

8)),(XNL ,A24( 

9)) 

EQUIVALENCE 

(Y3 

,A25( 

l)),(Y'i 

,A25( 

2)),(Y5 ,A25( 

3)), 

1 

(Y6 

,A25( 

<t)) 





IPRINT=IPRINT+1 
GO TO (10,20,30),IPRINT 
CXXXXXXpRiHT OUT OF INPUT DATA 
10 CONTINUE 

WRITE(IW,502) 

WRITE(IW,510)IP,PLA 

WRITE(IW,511) 

WRITE(IW,512) 

WRITE(IW,513) 

WRITE(IW,519) 

WRITE(IM,515) 

WRITE(IW,516) 

WRITE(IW,517) 

WRITE(IW,518) 



0192100 

WRITE(IM,519) 





0192200 

WRITE(IW,520) 

P0,P2,P13,P22, 

P3,P4,P41,P5 

,P6,P7,TAM,T2,T13, 

T22,T3, - 

0192300 

1 T«i,T41,T6,T7, 

WA2,MA13,WA22, 

WA3,WG4,WG41 

,WG6,WG7,DH4,DH41, 

ETAB, 

0192400 

2 ETAAB,FN,XNL, 

XNH,UF4,WF7,A8 

,AE,ALT,XMN, 

CDN,CVN,CIVV,RCVV, 

FG 

0192500 

WRITE(IW,501) 



0192600 

RETURN 





0192700 

OUT OF 

ENGINE DATA 




0192800 

20 WRITE(IM,521) 





0192900 

WRITE(6,2270) 





0193000 

WRITE(6,2500) 

P13, 

P3, 

P4, 

P41, - 

0193100 

1 P6 




0193200 

WRITE(6,2280) 





0193300 

WRITE(6,2500) 

P7, 

T13, 

T3, 

T4, 

0193400 

2 T41 




0193500 

WRITE(6,2290) 





0193600 

URITE(6,2500) 

T6, 

T7, 

WA13, 

WG6, - 

0193700 

3 XNL 




0193800 

URITE(6,2300) 





"0193900 

WRITE(6,2500) 

XNH, 

WF4, 

WF7, 

A8, 

0194000 

4 AE 



0194100 

URITE(6,2310) 





0194200 

URITE(6,2500) 

ALT, 

XMN, 

CIVV, 

RCVV, - 

0194300 

5 TAM 



0194400 

WRITE(IM,501) 





0194500 

WRITE(IM,522) 





0194600 

WRITE(6.2320) 





0194700 

WRITE(6,2500) 

P2, 

T2, 

X3, 

WAR2 

0194800 

WRITE(6,2330) 



0194900 

WRITE(6,2544) 

X4, 

UAR22, 

DW13> 

DTQW13- 

0195000 

7, DW3 




0195100 

WRITE(6,2340) 





0195200 

WRITE(6,2544) 

DTQM3, 

DU4, 

DTQW4, 

DW41, - 

0195300 

8 DTQW41 


0195400 

WRITE(6,2350) 





0195500 

WRITE(6,2544) 

DW6, 

DTQM6, 

DW7, 

DTQW7,- 

0195600 

9 DXNL 




0195700 

URITE(6,2360) 





0195800 

WRITE(6,2544) 

DXNH 




0195900 

WRITE(IW,502) 





0196000 

URITE(IW,523) 





0196100 

WRITE(6,2370) 





0196200 

WRITE(6,2500) 

ALTM, 

XMNM, 

P2A, 

T2A, - 

0196300 

1 PDA 



0196400 

URITE(6,2380) 





0196500 

WRITE(6,2500) 

Y3, 

ETAOFM, 

P22Q2M, 

ETAIFM- 

0196600 

2, WA2 



0196700 

WRITE(6,2390) 





0196800 

WRITE(6,2500) 

RTT2, 

T2M, 

CP2, 

CV2, - 

0196900 

3 GM2 



0197000 

WRITE(6,2400) 





0197100 

WRITE(6,2500) 

H2M, 

PROF, 

TROFMl , 

T13P, - 

0197200 

4 P22 



0197300 

WRITE(6,2410) 





0197400 

WRITE(6,2500) 

PRIF, 

TRIFMl , 

T22, 

Y4> 

0197500 

5 RTT22 


0197600 

WRITE(6,2420) 





0197700 

WRITE(6,2500) 

ETAHCM, 

UA22, 

PRHC, 

TAVHC 

0197800 

WRITE(6,2430) 



0197900 

URITE(6,2500) 

CPHC, 

CVHC, 

GMHC, 

HHCM, - 

0198000 

7 TRHCm 


0198100 

WRITE(6,2440) 





0198200 

URITE(6,2500) 

T3P, 

UA3, 

T3M, 

CP3, - 

0198300 

8 CV3 



0198400 

URITE(6,2450) 





0198500 

URITE(6,2500) 

Gt13, 

H3M, 

H3, 

T13PM,- 

0198600 

9 CP13P 


0198700 

WRITE(6,2460) 





0198800 

WRITE(6,2500) 

CV13P, 

GM13P, 

H13PM, 

H13P, - 

0198900 

^ T13M 



0199000 

WRITE(6.2470) 





0199100 

WRITE(6,2500) 

CP13, 

CV13, 

GM13, 

H13M, - 

0199200 

1 H13 



0199300 

WRITE(6,2480) 





0199400 

URITE(6,2500) 

T22M, 

CP22, 

CV22, 

GM22, - 
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0199500 2 H22M 

0199600 WRITE(6,2<i90) 


0199700 

WRITE(6,2500) 

H22, 

T3PM, 

CP3P, 

CV3P, 

- 

0199800 

3 GHSP 






0199900 

WRITE(6,2140) 






0200000 

WRITE(6,2500) 

H3PM, 

H3P, 


FAR4M, 

- 

0200100 

4 CP4 






0200200 

WRITE(6,2150) 






0200300 

WRITE(6,2500) 

CV4> 

GM4, 


H4, 

- 

0200^00 

5 TAVB 






0200500 

WRITE(6,2160) 






0200600 

WRITE(6,2500) 

CPB, 

CVB, 

GMB, 

HBM, 

- 

0200700 

6 HB 






0200800 

WRITE(6,2170) 






0200900 

WRITE(6,2500) 

X5> 

Y5, 

RTT4, 

WP4, 

“ 

0201000 

7 HP4 






0201100 

WRITE(6,2180) 






0201200 

WRITE(6,2500 ) 


FAR41M, 

T41M, 

CP41, 


0201300 

8 CV41 






020K00 

WRITE(6,2190) 






0201500 

WRITEC6,2500) 

GM41, 


H41, 

DH4, 


0201600 

9 FAR6M 





0201700 

URITE(6,2200) 






0201800 

WRITE(6,2500) 

T6M, 

CP6, 

CV6, 

GM6, 

- 

0201900 

^ H6M 






0202000 

WRITE(6,2210) 






0202100 

WRITE(6,2500) 

H6, 

ETAB, 

T7M, 

FAR7M, 

- 

0202200 

1 CP7 






0202300 

WRITE(6,2220) 






0202^f00 

WRITE(6,2500) 

CV7, 

GM7, 

H7M, 

H7, 

- 

0202500 

2 TAVAB 





0202600 

URITE(6,2230) 






0202700 

WRITE(6,2500) 

CPAB, 

CVAB, 

GMAB> 

HABM, 

- 

0202800 

3 HAB 






0202900 

WRITE(6,2240) 






0203000 

WRITE(6,2500) 

CVN> 

PO, 

CDN, 

WG7M> 

- 

0203100 

4 WG7 






0203200 

WRITE(6,2250) 






0203300 

WRITE(6,2500) 

ETAAB> 

H2, 

RTT41, 

X6, 

- 

0203^00 

5 Y6 






0203500 

WRITE(6,2260) 






0203600 

WRITE(6,2500) 

WP^l, 

HP^l, 

WG41, 

DH41, 

“ 

0203700 

6 TAM 






0203800 

WRITE(6,2265) 






0203900 

WRITE(6,2500) 

WBLHT, 

WBLLT, 

WBLOV, 

FNET, 

- 


0204000 7 FNtI 

0204100 WRITE(IW,501) 

0204200 WRITE(IW,501) 

0204300 WRITE(IU,524) 

0204400 PO=PO^SFPO 

0204500 P2=P2^SFP2 

0204600 IF(IP.EQ.l) P2D=P2 

“0204700 P13=P13^SFP13 

0204800 P22=P22^SFP22 

0204900 IF(IP.EQ.l) P22D=P22 

0205000 P3=P3^SFP3 

0205100 P4=P4«SFP4 

0205200 P41=P41^SFP41 

0205300 P6=P6^SFP6 

0205400 P7=P7^SFP7 

0205500 T2=T2^SFT2 

0205600 IFdP.EQ.n T2D=T2 

0205700 T13P=T13P^SFT13 

0205800 T13=T13^SFT13 

0205900 T22=T22^SFT22 

0206000 IF(IP.EQ.l) T22D=T22 

0206100 TAVHC=TAVHC^5000 . 

0206200 T3P=T3P><SFT3 

0206300 T3=T3>«SFT3 

0206400 TAVB=TAVB^5000. 

0206500 T4=T4«SFT4 

0206600 T41=T41^SFT41 

0206700 T6=T6>^SFT6 

0206800 TAVAB=TAVAB»^5000 . 
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0206900 

0207000 

0207100 

0207200 

0207300 

0207600 

0207500 

0207600 

0207700 

0207800 

0207900 

0208000 

0208100 

0208200 

0208300 

0208600 

0208500 

0208600 

0208700 

0208800 

02C8900 

0209000 

0209100 

0209200 

0209300 

0209600 

0209500 

0209600 

0209700 

0209800 

0209900 

0210000 

‘0210100 

0210200 

0210300 

0210600 

0210500 

0210600 

0210700 

0210800 

0210900 

0211000 

0211100 

0211200 

0211300 

0211600 

0211500 

0211600 

0211700 

0211800 

0211900 

0212000 

0212100 

0212200 

0212300 

0212600 

0212500 

0212600 

0212700 

0212800 

0212900 

0213000 

0213100 

0213200 

0213300 

0213600 

0213500 

0213600 

0213700 

0213800 

0213900 

0216000 

0216100 

0216200 


T7=T7^SFT7 
WA2=UA2^SFWA2 
IF(IP.EQ.l) WA2D=WA2 

WAR2=WAR2^ZC(3)^WA2D^SQRT(T2D)^CC(6)/P2D/1 .5697 

WA22=WA22^SFWA22 

IFCIP.EQ. 1 ) WA22D=WA22 

WAR22=WAR22^ZC(6)^CC(8)^WA22D^SQRT(T22D)/P22D/1.5697 

WA3=WA3^SFWA3 

WA13=WA13^SFWA13 

WF6=WF6^SFWF6 

WG6 = LJG6^SFWG6 

WG61=WG61^SFWG61 

WG6=WG6^SFWG6 

WF7=WF7^SFUF7 

WG7=WG7^SFWG7 

H2=H2^.5^SFT2 

H13P=H13P^.5^SFT13 

H13=H13^.5^SFT13 

H22=H22^. 5^SFT22 

H3P=H3P^.5^SFT3 

H3=H3^.5^SFT3 

HB=HB^.5^SFT6 

H6=H6^.5^SFT6 

DH6=DH6^SFDH6 

H61=H61^.5^SFT61 

DH61=DH61^SFDH61 

H6=H6^.5^SFT6 

HAB=HAB^.5^SFT7 

H7=H7^.5^SFT7 

PROF=PROF^15. 

PRIF=PRIF^15. 

PRHC=PRHC^15. 

FAR6M=FAR6n>^. 08 

FAR61M=FAR6in^.08 

FAR6M=FAR6n^. 08 

FAR7M=FAR7M^.08 

XNH=XNH^SFXNH 

XNL=XNL^SFXNL 

ETAOFM=ETAOFM^CC ( 5 ) 

ETAIFM=ETAIFM^CC(7) 

ETAHCM=ETAHCn^CC(9) 

WBLHT=WBLHT^ . 2^SFWA22 
WBLLT=WBLLT^. 02^SFWA22 
WBLOV=WBLOV^. 002^SFWA22 
FNET=FNET^SFFN 
FNM=FNn^SFFG 
WRITE(6,2010) 


WRITE(6,2500) 

7 P3 
WRITEC6,2020) 
WRITE(6>2500) 

8 T2 
WRITE(6,2030) 
WRITE(6,2500) 

9 T3P 
WRITE(6,2060) 
WRITE(6,2500) 

^ T6 

WRITE(6,2050) 
WRITE(6,2500) 

1 WA22 
WRITE(6,2060) 
WRITE(6,2500) 

2 WG6 
WRITEC6,2070) 
WRITE(6,2500) 

3 H2 
WRITE(6,2080) 
WRITEC6,2500) 

6 H3 

WRITE(6>2090) 
WRITE(6,2500) 

5 DH61 

WRITE(6,2100) 


PO, 

P2, 

P4, 

P61, 

T13P, 

T13, 

T3, 

TAVB 

TAVAB, 

T7, 

WAR22, 

WA3, 

WG41, 

UG6, 

H13P, 

H13, 

HB, 

H6, 


P13, 

P22, 

P6. 

P7, 

T22, 

TAVHC 

T6, 

T61, 

WA2, 

WAR2, 

WA13, 

WF6, 

WF7, 

WG7, 

H22, 

H3P, 

DH6, 

H61, 
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021‘^300 
021^^00 
0 2 1 5 0 0 
021^600 
021^700 
021^800 
021^i900 
02150 00 
0215100 
0215200 
0215300 
0215^*00 
*“0215500 
0215600 
021 57 00 
0215800 
0215900 
02160 00 
0216100 
0216200 
0216 300 
0216^00 
0216500 
0216600 
0216700 
0216800 
0216900 
0217000 
0217100 
0217200 
0 217 3 0 0 
0217^00 
0217500 
0217600 
0217700 
0217800 
0217900 
0218000 
0218100 
0218200 
0218300 
021S^i00 
0218500 
0218600 
0218700 
0218800 
0218900 
0219000 
0219100 
0219200 
0219300 
0219*^^00 
0219500 
0219600 
0219700 
0219800 
0219900 
0220000 
0220100 
0220200 
0220300 
0220^00 
0220500 
0220600 
0220700 
0220800 
"“0220900 
0221000 
0221100 
0221200 
0221300 
0221^400 
0221500 
0221600 


WRITE(6,2500) 

H6, 

HAB, 

H7, 

CDN, - 

6 CVN 

WRITE(6,2110) 
WRITE(6,2500) 

XNH, 

XNL, 

PROF, 

ETAOFM- 

7 , PRIF 

URITE(6,2120) 
WRITE(6,2500) 

ETAIFM, 

PRHC, 

ETAHCM, 

ETAB, “ 

8 ETAAB 

WRITE(6,2130) 
WRITE(6,2500) FAR4M, 

FAR^^IM, 

FAR6M, 

FAR7M 

WRITE(6,2265) 

WRITE(6,2500) 

WBLHT, 

WBLLT, 

WBLOV, 

FNET, - 


9 FNM 

RETURN 

OF DIGITAL COEFFICIENTS (UNMODIFIED AND MODIFIED) 

30 CONTINUE 
K1 = 0 

DO 35 1=1,125 

IF(ABS(UDC(I) ) .LT. 1 . 0) GO TO 35 
K1=K1+1 
GLDCKl )=I 
35 CONTINUE 
K3 = 0 

DO 37 1=1,125 

IFCUDCd) .NE.0.0) GO TO 37 
K3=K3+1 
ZD(K3)=I 
37 CONTINUE 
K4 = 0 

DO ^5 1=1,125 

IF(ABS(DC(I) ) .LT. 1 . 0) GO TO ^5 
K^4=K^ + 1 
FD(K^)=I 
^5 CONTINUE 

DO 50 1=1,125 
DDC(I)=DC(I) 

IF(DC(I) .GE.1.0) DDC(I)=. 99999 
IF(DCCI) .LE.-l.O) DDC(I)=-. 99999 

50 CONTINUE 

OUT OF DIGITAL COEFFICIENTS (UNMODIFIED AND MODIFIED), CORRECTION 
C FACTORS, AND ERROR RATIOS 
WRITE(IW,502) 

WRITE(IW,525) 

WRITE(IW,526) (UDC(I) ,1=1 , 125 ) 

WRITE(IW,501) 

IF(Kl.NE.O) WRITE(IW,527) 

IF(Kl.NE.O) WRITE(IW,532) ( GLD(I) , 1=1 , K1 ) 

WRITE(IW,501) 

IF(K3.NE.O) WRITE(IW,528) 

IF(K3.NE.0) WRITE(IW,532) (ZD(I) ,1=1 ,K3 ) 

WRITE(IW,501) 

WRITE(IW,529) 

WRITE(IW,526 ) ( CC(I) , 1=1 , 50 ) 

WRITE(IW,50^) 

WRITE(IW,501) 

WRITE(IW,530) 

WRITE(IW,533)(DDC(I) ,1=1,125) 

WRITE(IW,501 ) 

IF(K4.NE.0) WRITE (IW,531) 

IF(K-^.NE.O) WRITE (IW,532) (FD(I) , 1=1 ) 

WRITE(IW,50^) 

C^^^^^^^OUTPUT OF DATA FOR USE IN THE HYBRID PROGRAM 

OUT DIGITAL COEFFICIENTS AND INLET E BLEED FLAGS 
IF((JP.EQ.l).OR.(JPD.EQ.D) GO TO 51 
GO TO 52 

51 CONTINUE 
WRITE(IW,501) 

WRITE(IW,534) 

WRITE(IPNCH,500) 

WRITE (IW, 535) 

WRITE (IPNCH, 533) (DDC(I) , 1=1 , 125 ) 

WRITE(IW,536) 

WRITE ( IPNCH ,5^0) INLET , KBH , KBL , KBV 

52 CONTINUE 
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0221700 
0221S0O 
0221900 
0222000 
0222100 
0222200 
0222300 
0222^00 
0222500 
0222600 
0222700 
0222800 
0222900 
0223000 
0223100 
0223200 
0223300 
0223A00 
0223500 
0223600 
0223700 
0223800 
0223900 
022^000 
022*^100 
022^200 
022^300 
022^^00 
022^500 
022^600 
022^^700 
022^800 
022^*900 
0225000 
0225100 
0225200 
0225300 
0225^00 
0225500 
0225600 
0225700 
0225800 
0225900 
0226000 
02261 00 
0226200 
""0226300 
0226^00 
0226500 
0226600 
0226700 
0226800 
0226900 
0227000 
0227100 
0227200 
0227300 
0227400 
0227500 
0227600 
0227700 
0227800 
0227900 
0228000 
0228100 
0228200 
0228300 
0228400 
0228500 
0228600 
0228700 
0228800 
0228900 
0229000 


OUT INTEGRATOR, DAC IC,POT DATA 
IF( ( JP.EQ. 1 ) .OR. ( JPA.EQ. 1 ) ) GO TO 53 
GO TO 85 
53 CONTINUE 

WRITE(IU,537) 

WRITE(IW,538) 

WRITE(IW,539) 

DO 70 K=l,10 
N=IGCK) 

GAIN(K)=10^^N 
IF(K.GT.6 ) GO TO 60 
J = 2^K 
JJ=J-1 

WRITE(IPNCH,541) AADRC JJ) , AADRC J) ,IG(K) 

GO TO 65 
60 J=K+6 

U’RITE(IPNCH,541) AADR( J) ,IG(K) 

65 CONTINUE 
70 CONTINUE 

WRITE(IPNCF1,5 33 ) CDACKI) , 1=1 , 24 ) 

DO 80 1=1,53 

WRITE(IPNCH,542) PADRCI) ,PVAL(I) 

80 CONTINUE 
85 CONTINUE 

C^^>^>^^^ERROR RATIOS OUTPUT 
90 WRITE(IW,501) 

WRITE(IW,504) 

WRITE(IU,543) 

WRITE(IW,545) 

WR^TE(^^^5oi 

URITE(Iw!546) 

WRITECIIJ, 551) (T22R(I) ,WA22R(I) ,T3PR(I) ,WA3R(I) ,CBLHR(I) ,1,1=1, NTOT- 

lAL) 

WRITE(IW,501) 

WRITE(IW,547) 

WRITE(IW,551)(WG4R(I),CBLLR(I),WG41R(I), CBLVR(I),ETABR(I),I,I=1,N- 
1 TO T A E ) 

WRITE(IW,501) 

WRITE(IW,548) 

WRITECIW, 551 ) (DH4TR(I) , DH41TR(I) , POR(I) , WG7R(I) , ETAABR(I) ,1,1=1 ,NT- 
lOTAL) 

WRITECIW, 502) 

WRITECIW, 501 ) 

WRITECIW, 549) 

WRITECIW,551) CDH4QRCI) ,DH41QRCI) ,DP13RCI) ,DP6RCI) ,P5RCI) ,1,1=1, NTO- 

ITAL) 

WRITECIW, 501) 

WRITECIW, 550) 

WRITECIW, 552) C FGRC I) , I , 1=1 , NTOTAL ) 

500 FORMATCIX) 

501 FORMATC/) 

502 FORMATCIHI) 

503 FORMATCIHI/) 

504 FORMATCIHI//) 

510^FORMATpX,26HOPERATING POINT INPUT DATA , 5X , 8HPT . NO. ,I2,5X,6HPLA - 

511 FORMATC6X,2HPO, 10X,2HP2,10X,3HP13, 9X,3HP22, 9X,2HP3) 

512 FORMATC 6X,2HP4,1 OX, 3HP41,9X,2HP5,1 OX, 2HP6,1 OX, 2HP7) 

513 FORMATC 6X, 3HTAM, 9X , 2HT2 , 1 OX , 3HT1 3 , 9X , 3HT22 , 9X , 2HT3 ) 

514 FORMATC 6X,2HT4,1 OX, 3HT4 1, 9X,2HT6,1 OX, 2HT7,1 OX, 3HWA2) 

515 FORMAT C6X,4HWA1 3, 8X, 4HWA22, 8X, 3HWA3, 9X,3HWG4, 9X,4HWG41) 

516 FORMAT C6X,3HWG6,9X,3HWG7,9X,3HDH4,9X,4HDH41,8X,4HETAB) 

517 FORMAT C6X,5HETAAB,7X,2HFN,1 OX, 3HXNL,9X,3HXNH,9X,3HWF4) 

518 FORMATC 6X, 3HWF7 , 9X, 2HA8 , 1 OX , 2HAE, 1 OX , 3HALT , 9X , 3HXMN ) 

519 FORMATC6X,3HCDN, 9X,3HCVN, 9X,4HCIVV,8X,4HRCVV,8X,2HFG/) 

520 FORMATC5F12.5) 

521 FORMATC3X,26HOPERATING POINT ADC INPUTS) 

522 FORMATC3X,27HOPERATING POINT DAC OUTPUTS) 

523 FORMATC 3X,31HOTHER. OPERATING POINT VARIABLES) 

524 FORMATC 3X,29HUNSCALED OPERATING POINT DATA) 

525 FORMATC 3X, 31HUNMODIFIED DIGITAL COEFFICIENTS/) 

526 FORMATC5CF8.5,2X) ) 

527 FORMATC 3X,33HDIGITAL COEFFICIENTS > OR = 11,01/) 
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0229100 
0229200 
0229300 
0229^*00 
0229500 
0229600 
0229700 
0229800 
0229900 
0230000 
0230100 
0230200 
0230300 
0230^00 
0230500 
0230600 
0230700 
0230800 
0230900 
0231000 
0231 100 
0231200 
0231300 
0231^00 
0231500 
0231600 
““0231700 
0231800 
0231900 
0232000 
0232100 
0232200 
0232300 
0232^00 
0232500 
0232600 
0232700 
0232800 
0232900 
02330 0 0 
0233100 
0233200 
023330 0 
0233^00 
0233500 
0233600 
0233700 
0233800 
0233900 
023^000 
023^*100 
0236200 
0236300 
0236600 
0236500 
0236600 
0236700 
0236800 
0236900 
C235000 
0235100 
0235200 
0235300 
0235600 
0235500 
0235600 
0235700 
0235800 
0235900 
0236000 
0236100 
0236200 
0236300 
0236600 


528 FORMAT(3X,26HDIGITAL COEFFICIENTS = 0.0/) 

529 FORMAT(3X,18HCORRECTION FACTORS/) 

530 FORMAT(3X,29HMODIFIED DIGITAL COEFFICIENTS/) 

531 FORMAT(3X,63HnODIFIED DIGITAL COEFFICIENTS > OR = 11.01 /) 

532 FORMAT(5(I5,2X) ) 

533 F0RMAT((3X,5(1X,F6.5>2X))) 

536 FORMAT(3X,16HMAP DATA PUNCHED/) 

535 FORnAT(3X,31HPUNCH MODIFIED COEFFICIENT DATA/) 

536 FORMAT(3X,21HINLET AND BLEED SPECS/) 

537 FORMAT(3X,21HPUNCH INTEGRATOR DATA/) 

538 FORMAT(3X,17HPUNCH DAC IC DATA/) 

539 FORMAT(3X>16HPUNCH POT DATA/) 

560 F0RMAT((1X,6(I7,2X))) 

561 FORMATC3I6) 

562 F0RMAT(1X,A6,1X,F5.6) 

563 FORMAT(3X,38HOFF-DESIGN MODELING ERROR COEFFICIENTS/) 

565 FORMAT(6X,3HP2R,9X,3HT2R,9X,6HWA2R,SX,5HT13PR,7X,6HP22R) 

566 FORMAT(6X,6HT22R,8X,5HWA22R,7X,6HT3PR,8X,6HWA3R,8X,5HCBLHR) 

567 FORMAT(6X,6HWG6R,8X,5HCBLLR,7X,5HWG61R,7X, 5HCBLVR , 6X , 5HETABR ) 

568 FORMAT(6X,5HDH6TR,7X,6HDH61TR,6X,3HP0R,9X,6HWG7R,8X,6HETAABR) 

569 FORMAT (6X,5HDM6QR,7X,6HDH61QR,6X,5HDP13R,7X,6HDP6R,8X,3HP5R) 

550 FORMAT(6X,3HFGR) 

551 FORMAT(5F12.5,5X,I2) 


552 FORMAT(F12.5,53X,I2) 
2010 FORMAT(/,9X,81HP0, 

7 P3 

2020 FORMAT(/,9X,81HP6, 

8 T2 

2030 FORMAT(/,9X,81HT13P, 

9 T3P 
2060 FORMAT (/,9X, 8 1HT3, 

* T6 

2050 FORMATC/,9X,81HTAVAB, 

1 WA22 

2060 FORMATC/.9X.81HWAR22M, 

2 WG6 

2070 FORMAT(/,9X,81HWG61, 

3 H2 

2080 FORMATC/, 9X,81HH13P, 

6 H3 

2090 FORMAT(/,9X,81HHB, 

5 DH61 
2100 FORMAT(/,9X,81HH6, 

6 CV8 

2110 FORMAT(/,9X,81HXNH, 

7, PRIF 

2120 FORMATC/, 9X,81HETAIFM, 

8 ETAAB 

2130 FORMAT(/,9X,81HFAR6M, 

9 

2270 FORMAT(/,9X,81HP13, 

1 P6 
2280 FORMAT(/,9X,81HP7 

2 T61 
2290 FORMAT(/,9X,81HT6, 

3 XNL 

2300 FORMAT(/,9X,81HXNH, 

6 AE 

2310 FORMAT(/,9X,81HALT, 

5 TAM 
2320 FORMATC/, 9X,81HP2, 

6 

2330 FORMATC/,9X,81HX6, 

7, DU3 

2360 FORMATC/, 9X,81HDTQW3, 

8 DTQU61 
2350 FORMAT(/,9X.81HDW6, 

9 DXNL 
2360 FORMAT(/,9X,81HDXNH 

2370 FORMAT(/>9X,81HALTM, 

1 POA 

2380 FORMAT(/,9X,81HY3, 

2, WA2 


P2, 

) 

P13, 

P22, - 

Pi^l, 

) 

P6, 

P7, 

T13, 

) 

T22, 

TAVHC,- 

TRVB, 

T6, 

T61, - 

T7, 

) 

WA2, 

WAR2M,- 

WA3, 

) 

WA13, 

WF6, - 

WG6, 

) 

H13, 

) 

WF7, 

WG7, - 

H22, 

H3P, - 

H4, 

) 

DH6, 

H61, - 

HAB, 

) 

H7, 

CD7, - 

XNL, 

) 

PROF, 

ETAOFM- 

PRHC, 

) 

ETAHCM, 

ETAB, - 

FAR^IM, 

) 

FAR6M, 

FAR7M - 

P3, 

) 

P6, 

P61> - 

T13, 

) 

T3, 

T6, 

T7, 

) 

WA13, 

WG6, “ 

WFi^, 

) 

WF7, 

AS, 

XMN, 

) 

CIVV, 

RCVV - 

T2, 

) 

X3, 

WAR2 - 

WAR22. 

) 

DW13, 

DTQW13- 

DW^, 

) 

DTQU6, 

DW61, - 

DTQW6, 

) 

) 

DW7, 

DTQW7,- 

xtiNn, 

) 

P2A, 

T2A, - 

ETAOFM, 

) 

P22Q2M, 

ETAIFM- 
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0236500 

0236600 

0236700 

0236800 

0236900 

0237000 

""0237100 

0237200 

0237300 

0237400 

0237500 

0237600 

0237700 

0237800 

0237900 

0238000 

0238100 

0238200 

0238300 

0238400 

0238500 

0238600 

0238700 

0238800 

0238900 

0239000 

0239100 

0239200 

0239300 

0239400 

0239500 

0239600 

0239700 

0239800 

0239900 

0240000 

0240100 

0240200 

0240300 

0240400 

0240500 

0240600 

0240700 

0240800 

0240900 

0241000 

0241100 

0241200 

0241300 

0241400 

0241500 

0241600 

0241700 

0241800 

0241900 

0242000 

0242100 

0242200 

0242300 

0242400 

“"0242500 

0242600 

0242700 

0242800 

0242900 

0243000 

0243100 

0243200 

0243300 

0243400 

0243500 

0243600 

0243700 

0243800 


2390 FORMAT(/,9X,81HRTT2, T2M, 

3 Gn2 ) 

2400 FORHATC/, 9X,81HH2M, PROF, 

4 P22 ) 

2410 FORMAT(/,9X,81HPRIF, TRIFMl , 

5 RTT22 ) 

2420 FORMAT (/, 9X, 8 IHETAHCM, WA22, 

6 ) 

243 0 FORMAT C / , 9X , 8 IHCPHC , CVHC , 

7 TRHCMl ) 

2440 FORMAT(/,9X,81HT3P, WA3, 

8 CV3 ) 

2450 FORMATC/, 9X,81HGM3, H3M, 

9 CP13P ) 

2460 FORMATC/, 9X,81HCV13P, GM13P, 

^ T13M ) 

2470 FORMATC/, 9X,81HCP13, CV13, 

1 H13 ) 

2480 FORMATC/, 9X,81HT22M, CP22, 

2 H22M ) 

2490 FORMAT(/,9X,81HH22, T3PM, 

3 GM3P ) 

2140 FORMAT(/,9X,81HH3PM, H3P, 

4 CP4 ) 

2150 FORMAT(/,9X,81HCV4, GM4, 

5 TAVB ) 

2160 FORMAT(/,9X,81HCPB, CVB, 

6 HB ) 

2170 FORMAT(/,9X,81HX5, Y5, 

7 HP4 ) 

2180 FORMAT(/,9X,81HUG4, FAR41M, 

8 CV41 ) 

2190 FORMATC/, 9X,81HGM41, H41M, 

9 FAR6M ) 

2200 FORMAT(/,9X,81HT6M, CP6 , 

^ H6M ) 

2210 FORMAT(/,9X,81HH6, ETAB, 

1 CP7 ) 

2220 FORMATC/, 9X,81HCV7, GM7 , 

2 TAVAB ) 

2230 FORMAT(/,9X,81HCPAB, CVAB, 

3 HAB ) 

2240 FORMAT(/,9X,81HCVN, PO, 

4 WG7 ) 

2250 FORMATC/, 9X,81HETAAB, H2, 

5 Y6 ) 

2260 FORMATC/, 9X,81HWP41, HP41, 

6 TAM ) 

2265 FORMATC/, 9X,81HWBLHT, WBLLT, 

7 FG ) 


2500 FORMATClX,5F15.7) 

2544 FORMATClX,5E15.7) 

RETURN 

END 

C 

c 

c 

c 

SUBROUTINE PROCOMCT,FA,CP,CV,GAM,H) 
C PRODUCTS OF COMBUSTION ROUTINE 
IFCT.GE. .46000) GO TO 50 
IFCT.GE. ,24000) GO TO 40 
CPA= ,48068-C . 12464-T/. 98246)^T 
HA= .00176+C .56558+. 14075^T)^T 
GO TO 60 

40 CPA= .40528+C .52545-. 38182^T)^T 
HA= .00119+C .56298+. 16150^T)^T 
GO TO 60 

50 CPA= .46063+C .30024-. 15378^T)^T 
HA= -.01870+C .64968+. 06700^T)^T 

60 AMW= . 57940- . 00144^FA 
R= .07945/AMW 
TD= .70000 -T 


CP2, 

TROFMl , 

T22, 

PRHC, 

GMHC, 

T3M, 

H3, 

H13PM, 

GM13, 

CV22, 

CP3P, 

T4M, 

H4M, 

GMB, 

RTT4, 

T41M, 

H41, 

CV6, 

T7M, 

H7M, 

GMAB, 

CDN, 

RTT41, 

WG41, 

WBLOV, 


CV2, 

T13P, 

Y4, 

TAVHC, 

HHCM, 

CP3, 

T13PM, 

H13P, 

H13M, 

GM22, 

CV3P, 

FAR4M, 

H4, 

HBM, 

WP4, 

CP41, 

DH4, 

GM6, 

FAR7M, 

H7, 

HABM, 

WG7M, 

X6, 

DH41, 

FNET, 
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02^3900 

02<;^000 

02^^100 

02^4200 

02^*^300 

0244^400 

02<^^500 

02^^600 

02<;^t700 

02«^^800 

02^^900 

02^+5000 

02^5100 

02^*5200 

02^5300 

02 ‘^ 5^00 

02^+5500 

02 < i 5600 

02^^5700 

02‘'»5800 

02^5900 

02^^6000 

02^6100 

02^6200 

02^*6300 

02 ^* 6^00 

02^^6500 

02^46600 

02 A 6700 

0246800 

0246900 

0247000 

0247100 

0247200 

0247300 

0247400 

0247500 

0247600 

0247700 

0247800 

0247900 

0248000 

0248100 

0248200 

0248300 

0248400 

0248500 

0248600 

0248700 

0248800 

0248900 

0249000 

0249100 

0249200 

0249300 

0249400 

0249500 

0249600 

0249700 

0249800 

0249900 

0250000 

0250100 

0250200 

0250300 

0250400 

0250500 

0250600 

0250700 

0250800 

0250900 

0251000 

0251100 

0251200 


CPF= .93330 - ( .29350+. 81750^TD)^TD 
HF= -.03305 +( .63624+. 38625^T)^T 

H= (.66667^HR + . 1 0667^HF^FA)/( . 5000 0 + .04000 ^ FA) 
CP= ( .80 00 0^CPA+. 12800^CPF^FA)/( .80000+. 0640 O^FA) 

CV= CP - R 
GAH= .50000^CP/CV 
RETURN 
END 
C 

c 

C 

C 

SUBROUTINE SPOOL (XI,XN,SFWG,SFDH,SFXN,TSC,IGAIN,POT) 
C SPOOL ROUTINE 

DIMENSION POT(l) 

XN=XN^SFXN 
XJ=9339.6 
PI= 3.1416 

POT II =900 . ^X J^SFDH^SFt4G/ ( PI^PI^XI^SFXN^SFXN^TSC ) 
IFCPOTII.GT. 1 . ) GO TO 2 
IGAIN=Q 
POT(l)= POTII 
GO TO 7 

2 IFCPOTII.GT.IO. ) GO TO 3 
IGAIN=1 

POT(l)= POTII/IO. 

GO TO 7 

3 IFCPOTII.GT. 100 . ) GO TO 4 
IGAIN=2 

POT(l)= POTlI/100. 

GO TO 7 

4 IFCPOTII.GT. 1000.) GO TO 5 
IGAIN=3 

POTC1)=POT1I/1000. 

GO TO 7 

5 IFCPOTII. GT. 10000. ) GO TO 6 
IGAIN=4 

POTC1)=POT1I/10000. 

GO TO 7 

6 IGAIN=5 

POTC1)=POT1I/100000. 

7 POTC2)= XN/SFXN 
XN=XN/SFXN 
RETURN 
END 

C 
C 

C 
C 

SUBROUTINE TRATCN,PRC,GAM,TR) 

C TEMPERATURE RATIO ROUTINE 

DIMENSION N1C3),N2C3),N3C3) 

DIMENSION XYC50),X1C25),Y1C25) 

EQUIVALENCE C XI C 1 ) , XYC 1 ) ) , C Y1 C 1 ) , XYC 26 ) ) 

DATA Nl/5, 1,25/, N2/5, 1,25/, N3/5, 1,25/ 

DATA XI/. 06667, . 07333, . 08000 , .09333, . 1 0 667 , . 120 0 0 , . 

1 .14667,. 16667,. 20000, .23333, .26667,. 30000, .33333, 

2 .40000,. 46667, .53333, .60000,. 66667, . 7 3333, .80000 , 

3 .93333 .99999/ 

DATA Yl/! 0000 0 , .020 01, . 03872 07292 , . 10367 , .1316 9, . 

1 . 181'+5, .21't52, .26362, . 306 99, . 34599, .38152, .41424, 

2 .47301, .52492, . 57 159 , . 6 1412 , . 65328 , .68964, .72363, 

3 .78575, .81437/ 

150 IF(GAM.GE. .67500) GO TO 300 

IFCPRC.GE. . 33333) GO TO 200 
S= .50526 + .77229^PRC - . 95164»fPRCXPRC 
GO TO 700 

200 S= .58745 + .23850^PRC - . 09000^PRC^PRC 
GO TO 700 

300 IFCPRC.GE. . 33333) GO TO 400 

S= .45911 + .89475^PRC - (PRC^PRC)/. 92895 
GO TO 700 


13333, 

.36667 

.86667 

15749, 

.44462 

.75557 



0251300 400 S= .55215 + .29319 * PRC - .10919^ PRC^PRC 

0251400 700 C= ((.67500 - GAMINS)/. 02500 

0251500 IF(N.HE.l) GO TO 750 

0251600 TRC=FUN1(N1,X1,PRC) 

0251700 GO TO 900 

0251800 750 IF(N.NE.2) GO TO 800 

0251900 TRC=FUN1(N2,X1,PRC) 

0252000 GO TO 900 

0252100 800 TRC=FUN1(N3,X1,PRC) 

0252200 900 TR= (TRC^(. 80000 - . 16 0 0 O^C) )/ . 80 0 0 0 

0252300 1000 RETURN 

0252400 END 

0252500 C 

0252600 C 

02527 0 0 

0252800 C 

0252900 C 

0253000 SUBROUTINE VOLUME ( P , TT , V , W , WS , TSC , SFWG , SFP , SFTT , IGAIN , POT , SFM ) 

0253100 C VOLUME ROUTINE 

0253200 DIMENSION POT(l) 

“0253300 P=P^SFP 

0253400 TT=TT>^SFTT 

0253500 RA= 640.1 

0253600 U= P«V / (RA^TT) 

0253700 DO 10 J=l,3 

0253800 IF(W .GT. ( 1 . 0^1 0 . ^^ ( J-2 ) )) GO TO 10 

0253900 SFW=1. 05(10. *^(J-3) 

0254000 1 WS=M/SFW 

0254100 IF(WS .LE. .81 GO TO 2 

0254200 SFW=SFM+0 .55(10 .5(5((J-31 

0254300 GO TO 1 

0254400 10 CONTINUE 

0254500 2 POT(l)= WS 

0254600 POT2I= SFWG/(SFW 5( TSC) 

0254700 IF(POT2I.GT. 1 . ) GO TO 3 

0254800 IGAIN= 0 

0254900 POT(2)= POT2I 

0255000 GO TO 8 

0255100 3 IF(POT2I.GT. 10 . ) GO TO 4 

0255200 IGAIN= 1 

0255300 POT(2)=POT2I/10 . 

0255400 GO TO 8 

0255500 4 IF(POT2I.GT. 100 . ) GO TO 5 

0255600 IGAIN= 2 

0255700 POT(2)= POT2I/100. 

0255800 GO TO 8 

0255900 5 IF(POT2I.GT. 1000.0 GO TO 6 

0256000 IGAIN= 3 

0256100 POT(2)= POT2I/1000. 

0256200 GO TO 8 

0256300 6 IF(POT2I.GT. 10000. ) GO TO 7 

0256400 IGAIN= 4 

0256500 POT(2)= POT2I/10000. 

0256600 GO TO 8 

0256700 7 IGAIN= 5 

0256800 POT(2)= POT2I/1 0 0 0 0 0 . • 

0256900 8 POT(3)= POT(2) 

0257000 POT(4)=TT/SFTT 

0257100 POT(5)= (RA^SFW>(SFTT)/( 10 .^V^SFP) ' 

0257200 P=P/SFP 

0257300 TT=TT/SFTT 

0257400 RETURN 

0257500 END 

0257600 C 
0257700 C 

Fortran Symbols AE exhaust nozzle exit area, cm2 (in2) 

alt altitude, m (ft) 

M/l/A.- Same symbol used for unsealed and scaled APRINT index for subroutine ANALOG 

variables. (integer) 
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A8 

exhaust nozzle throat area, cm2 (in2) 

BSCIVV 

bias on fan variable-geometry 
parameter, deg 

BSRCVV 

bias on compressor variable-geometry 
parameter, deg 

CDN 

exhaust nozzle flow coefficient 

CIVV 

fan variable-geometry parameter, deg 

CVN 

exhaust nozzle velocity coefficient 

DH4 

high-pressure-turbine enthalpy drop, 
J/kg (Btu/lbm) 

DH41 

low-pressure-turbine enthalpy drop, 
J/kg (Btu/lbm) 

ETAAB 

augmentor efficiency 

ETAB 

combustor efficiency 

FN 

net thrust, N (Ibf) 

FG 

gross thrust, N (IbQ 

INLET 

inlet configuration option (integer) 

IP 

index on operating points (integer) 

IPNCH 

card punch device number (integer) 

IPRINT 

index for subroutine PRINT (integer) 

IR 

card input device number (integer) 

IW 

line printer device number (integer) 

JP 

punch option (integer) (1 for output of 
all data) 

JPA 

punch option (integer) (1 for output of 
analog data) 

JPD 

punch option (integer) (1 for output of 
digital data) 

KBH 

high-pressure-turbine bleed flow 
indicator (integer) 

KBL 

low-pressure-turbine bleed flow 
indicator (integer) 

KBLWHT 

fraction of high-pressure-turbine 
cooling bleed doing work 

KBLWLT 

fraction of low-pressure-turbine 
cooling bleed doing work 

KBV 

overboard bleed flow indicator 
(integer) 

NAUG 

number of augmented operating points 
input to host program 

NDRY 

number of dry operating points input 
to host program 

NTOTAL 

total number of operating points input 
to host program 

PLA 

power lever angle (operating point 
label), deg 

PI 

total pressure at station I, N/cm2 (psia) 

RCVV 

compressor variable-geometry 

parameter, deg 


RTT2 

square root of scaled fan inlet total 
temperature 

RTT22 

square root of scaled compressor inlet 
total temperature 

RTT4 

square root of scaled high-pressure- 
turbine inlet total temperature 

RTT41 

square root of scaled low-pressure- 
turbine inlet total temperature 

SFX 

scale factor on variable X, appropriate 
units 

TAM 

sea-level ambient temperature, K (°R) 

TI 

total temperature at station I, K (°R) 

WAI 

airflow rate leaving station I, kg/sec 
(Ibm/sec) 

WBLHT 

high-pressure-turbine cooling bleed 
flow rate, kg/sec (Ibm/sec) 

WBLLT 

low-pressure-turbine cooling bleed 
flow rate, kg/sec (Ibm/sec) 

WBLOV 

overboard bleed flow rate, kg/sec 
(Ibm/sec) 

WF4 

combustor fuel flow rate, kg/sec 
(Ibm/sec) 

WF7 

augmentor fuel flow rate, kg/sec 
Obm/sec) 

WGI 

gas flow rate leaving station I, kg/sec 
(Ibm/sec) 

XMN 

Mach number 

XNH 

high-spool rotor speed, rpm 

XNL 

low-spool rotor speed, rpm 

ANALOG. 

specified. 

-All variables are scaled unless otherwise 

AADR(k) 

integrator address array (integer), k- 1 
to 16 

AE 

exhaust nozzle exit area 

ALT 

altitude 

AQL13 

ratio of bypass duct area to length, cm 
(in.) 

AQL6 

ratio of augmentor duct area to length, 
cm (in.) 

CIVV 

fan variable-geometry parameter 

DACI(k) 

DAC initial condition array, A: = 1 to 24 

DP13R(k) 

bypass duct model evaluation ratio 
array, A:= 1 to NTOTAL 

DP6R(k) 

augmentor duct model evaluation ratio 
array, Ar= 1 to NTOTAL 

GAIN(k) 

integrator gain array (integer). A: = 1 to 
10 

I 

integer index 


105 



IG(k) 

integrator gain integer array, k=l to 
10 

IK 

integrator gain integer 

IP 

index on operating points (integer) 

IR 

card reader device number (integer) 

IW 

line printer device number (integer) 

J 

integer index 

JJ 

integer index 

K 

integer index 

N 

integer index 

PADR(k) 

potentiometer address array 
(alphanumeric), /:=! to 53 

POT(k) 

potentiometer setting array, A:=l to 5 

PVAL(k) 

potentiometer setting array, A: = 1 to 53 

PI 

total pressure at station I 

RCVV 

compressor variable-geometry 
parameter 

SFX 

scale factor on variable X, appropriate 
units 

SWI 

stored mass at station I 

TAM 

sea-level ambient temperature 

TI 

total temperature at station I 

VI 

volume at station I, cm3 (in3) 

WA13 

bypass duct flow rate 

WF4 

combustor fuel flow rate 

WF7 

augmentor fuel flow rate 

WG6 

augmentor flow rate 

WI 

stored mass at station I, kg (Ibm) 

XC(k) 

map scale factor array for X input 
variables, k=l to 6 

XIH 

high-rotor moment of inertia, 
N cm sec2 (Ibf in sec2) 

XIL 

low-rotor moment of inertia, N cm sec2 
Obf in sec2) 

XNH 

high-spool rotor speed 

XNL 

low-spool rotor speed 

DAT AIN 

F(k) 

map data array (scaled fraction), k 
determined by calling program 

I 

integer index 

INC 

number of points defining map 
(integer) 

IPNCH 

card punch device number (integer) 

IR 

csu'd input device number (integer) 

ISC(k) 

map scale factor format array 
(alphanumeric), A: = 1 to 4 

IW 

line printer device number (integer) 

IX(k) 

map X input data format array 
(alphanumeric). A: = 1 to 4 


IY(k) 

map Y input data format array 
(alphanumeric), k= \ to A 

IZl(k) 

map Z1 output data format array 
(alphanumeric), /:= 1 to 4 

IZ2(k) 

map Z2 output data format array 
(alphanumeric), /:= 1 to 4 

IZ3(k) 

map Z3 output data format array 
(alphanumeric), k-\ to 4 

IZ4(k) 

map Z4 output data format array 
(alphanumeric), k=\ to 4 

J 

integer index 

JF 

integer index 

JMNPT 

integer index 

JP 

punch option (integer) (1 for output of 
all data) 

JPD 

punch option (integer) (1 for output of 
digital data) 

JS 

integer index 

K 

integer index 

KPNCH 

map data punch integer (1 if JP or JPD 
equal to 1) 

L 

integer index 

M 

map number (integer) 

N(k) 

map integer array, k determined by 
calling program 

NCOM 

integer indicating rectilinear map data 
(nonzero for rectilinear map data) 

NCV 

number of curves defining map 

NPCT 

number of functions in map 

NF 

integer index 

NPT 

number of points per curve 

TEST 

map data increment used for detecting 
overflows (scaled fraction) 

VALS(k) 

array used to store unsealed Y and Z/ 
map data (floating point), k= \ to 25 

XSC 

map scale factor for X input variable 
(floating point) 

XVALS(k) 

array used to store unsealed X map 
data (floating point), A: = 1 to 25 

YSC 

map scale factor for Y input variable 
(floating point) 

ZSC(k) 

map scale factor array for Z/ output 
variables (floating point), k= \ to 4 


DCOEF.-M\ variables are scaled unless otherwise 
specified. 

AE exhaust nozzle exit area 

ALT altitude 

ALTM FLCOND-rescaled altitude 

BETAAB augmentor temperature interpolation 

constant 
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BETAB 

combustor temperature interpolation 
constant 

Fl(k) 

fan variable-geometry-effects ap 

data array, /: = 1 to 322 

BETAHC 

compressor temperature interpolation 
constant 

F2(k) 

compressor variable-geometry-effccts 
map data array, /: = 1 to 322 

CC(k) 

correction factor array (floating 

F3(k) 

fan map data array, /:= 1 to 854 


point), /:= 1 to 50 

F4(k) 

compressor map data array, /:=! to 

CDN 

exhaust nozzle flow coefficient 


518 

CIVV 

fan variable-geometry parameter 

F5(k) 

high-pressure-turbine map data array. 

CPAB 

average specific heat at constant 


/: = 1 to 224 


pressure in augmentor 

F6(k) 

low-pressure-turbine map data array. 

CPB 

average specific heat at constant 


k=l to 224 


pressure in combustor 

GMAB 

average specific heat ratio in 

CPHC 

average specific heat at constant 


augmentor 


pressure in compressor 

GMB 

average specific heat ratio in 

CPI 

specific heat at constant pressure at 


combustor 


station I 

GMHC 

average specific heat ratio in 

CSHIFT 

compressor variable-geometry effect 


compressor 


on corrected flow 

GMI 

specific heat ratio at station I 

CVAB 

average specific heat at constant 

HAB 

average specific enthalpy in augmentor 


volume in augmentor 

HABD 

desired augmentor specific enthalpy 

CVB 

average specific heat at constant 

HB 

combustor specific enthalpy 


volume in combustor 

HBD 

desired combustor specific enthalpy 

CVHC 

average specific heat at constant 
volume in compressor 

HHCM 

PROCOM-rescaled compressor spe- 
cific enthalpy 

CVN 

exhaust nozzle velocity coefficient 

HP4 

high-pressure-turbine enthalpy drop 

CVI 

specific heat at constant volume at 


parameter 


station I 

HP41 

low-pressure-turbine enthalpy drop 

DC(k) 

corrected digital coefficient array, 


parameter 


k=l to 125 

HI 

specific enthalpy at station I 

DH4 

high-pressure-turbine enthalpy drop 

HIM 

PROCOM-rescaled specific enthalpy 

DH41 

low-pressure-turbine enthalpy drop 


at station I 

ERRHAB 

difference between computed and 

I 

integer index 


desired augmentor specific enthalpy 

IP 

index on operating points (integer) 

ERRHB 

difference between computed and 

IW 

line printer device number (integer) 


desired compressor specific enthalpy 

KBH 

high-pressure-turbine bleed flow 

ERRTRHC 

difference between computed and 


indicator (integer) 


desired compressor temperature rise 
parameter 

KBL 

low-pressure-turbine bleed flow 
indicator (integer) 

ETAAB 

augmentor efficiency 

KBLWHT 

fraction of high-pressure-turbine 

ETAB 

combustor efficiency 


cooling bleed doing work 

ETAHCM 

compressor efficiency 

KBLWLT 

fraction of low-pressure-turbine 

ETAIFM 

fan inside-diameter efficiency 


cooling bleed doing work 

ETAOFM 

fan outside-diameter efficiency 

KBV 

overboard bleed flow indicator 

FARIM 

fuel-air ratio at station I 


(integer) 

FG 

gross thrust 

NDRY 

number of dry operating points input 

FGM3 

function of specific heat ratio at 


to host program 


station 3 

Nl(k) 

fan variable-geometry-effects map 

FNET 

net thrust 


Integer array, /:= 1 to 5 

FNM 

nozzle gross thrust 

N2(k) 

compressor variable-geometry-effects 

FSHIFT 

fan variable-geometry effect on 


map integer array, k=l to 5 


corrected flow 

N3(k) 

fan map integer array, A: = 1 to 5 
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N4(k) 

compressor map integer array, /: = 1 to 
5 

WBLHT 

high-pressure-turbine cooling bleed 
flow rate 

N5(k) 

high-pressure-turbine map integer 
array. A: = 1 to 5 

WBLLT 

low-pressure-turbine cooling bleed 
flow rate 

N6(k) 

low-pressure-turbine map integer 

WBLOV 

overboard bleed flow rate 


array, /:= 1 to 5 

WF4 

combustor fuel flow rate 

N7(k) 

nozzle functions integer array, k=l to 

WF7 

augmentor fuel flow rate 

PRHC 

TRAT-rescaled compressor pressure 

WGI 

gas flow rate leaving station I 


ratio 

WG7M 

NOZZL-rescaled exhaust nozzle flow 

PRIF 

TRAT-rescaled fan inside-diameter 

WP4 

rate 


pressure ratio 

high-pressure-turbine flow parameter 

PROF 

TRAT-rescaled fan outside-diameter 

WP4I 

low-pressure-turbine flow parameter 


pressure ratio 

XC(k) 

map scale factor array for X input 

PI 

total pressure at station I 


variables (floating point), A:=l to 6 

POA 

FLCOND-rescaled ambient pressure 

XF 

pressure area term in gross thrust 

POQT7 

exhaust nozzle pressure ratio 

XMN 

calculation 

P2A 

FLCOND-rescaled fan inlet total 

Mach number 


pressure 

XMNM 

FLCOND-rescaled Mach number 

P22Q2M 

fan inside-diameter pressure ratio 

XNH 

high-spool rotor speed 

RCVV 

compressor variable -geometry 

XNL 

low-spool rotor speed 


parameter 

XI 

X input for map I 

SFX 

scale factor on variable X, appropriate 
units 

YC(k) 

map scale factor array for Y input 
variables (floating point). A: = 1 to 6 

TAM 

sea-level ambient temperature 

YI 

Y input for map number I 

TAVAB 

average total temperature in aug- 
mentor 

Y71(k) 

exhaust nozzle flow coefficient 
function data array, k=\ to 15 

TAVB 

average total temperature in com- 
bustor 

Y72(k) 

exhaust nozzle velocity coefficient 
function data array, k=\ to 15 

TAVHC 

TRHCMl 

average total temperature in com- 
pressor 

compressor temperature rise parameter 

ZC(k) 

map scale factor array for Z output 
variables (floating point). A: = 1 to 12 

TRHCID 

desired compressor temperature rise 

DUCT. 

-Same symbol used for unsealed and scaled 


parameter 

pressures. 

temperature, and flow rate. 

TRIFMl 

fan inside-diameter temperature rise 

AQL 

ratio of duct area to length, cm (in.) 


parameter 

GC 

gravitational conversion factor. 

TROFMl 

fan outside-diameter temperature rise 
parameter 


100 cm kg/N sec2 (386.26 Ibm in/lbf 
sec2) 

TOA 

FLCOND-rescaled ambient tem- 

IGAIN 

integrator gain integer 


perature 

PIN 

duct inlet tot2il pressure, N/cm2 (psia) 

TI 

total temperature at station I 

POT(k) 

potentiometer setting array. A: = 1 to 4 

TIM 

PROCOM-rescaled total temperature 
at station I 

POT2I 

required gain of PIN potentiometer- 
integrator combination 

T2A 

FLCOND-rescaled fan inlet total 
temperature 

POT3I 

required gain of POUT potentiometer- 
integrator combination 

UDC(k) 

uncorrected digital coefficient array, 
k=l to 125 

POT4I 

required gain of feedback 
potentiometer-integrator com- 

WAR2 

fan corrected flow rate 


bination 

WAR2M 

nominal fan corrected flow rate 

POUT 

duct exit total pressure, N/cm2 (psia) 

WAR22 

compressor corrected flow rate 

RA 

gas constant of air, 2.8699x104 

WAI 

airflow rate leaving station I 


N cm/kg k (640.1 in Ibf/lbm *R) 


108 



SFPIN 

scale factor on duct inlet total pressure, 
appropriate units 

DC(k) 

SFPOUT 

scale factor on duct exit total pressure. 

DH4 


appropriate units 

DH4QC 

SFTIN 

scale factor on duct inlet total 



temperature, appropriate units 

DH4QR(k) 

SFW 

scale factor on duct inlet stored mass, 
appropriate units 


SFWG 

scale factor on flow rate through duct, 
appropriate units 

DH4TC 

TIN 

duct inlet total temperature, K (°R) 

DH4TR(k) 

TSC 

time scale factor 


V 

duct inlet volume, cm3 (in3) 


WG 

flow rate through duct, kg/sec 

DH41 

(Ibm/sec) 

DH41QC 

ENGINE. 

specified. 

-All variables are scaled unless otherwise 

DH41QR(k) 

AE 

exhaust nozzle exit area 


ALT 

altitude 

DH41TC 

ALTM 

FLCOND-rescaled altitude 

DH41TR(k) 

CBLHR(k) 

high-pressure-turbine bleed model 
evaluation ratio array, k = l to 
NTOTAL 

CBLLR(k) 

low-pressure-turbine bleed model 
evaluation ratio array, Ar=l to 

DTQWI 


NTOTAL 

DXNH 

CBLVR(k) 

overboard bleed model evaluation 

DXNL 

ratio array, A:= 1 to NTOTAL 

DWI 

CDN 

exhaust nozzle flow coefficient 

ETAAB 

CIVV 

fan variable-geometry parameter 

ETAABC 

CPAB 

average specific heat at constant 



pressure in augmentor 

ETAABR(k) 

CPB 

average specific heat at constant 



pressure in combustor 

ETAHCM 

CPHC 

average specific heat at constant 

ETAIFM 


pressure in compressor 

ETAOFM 

CPI 

specific heat at constant pressure at 

FARIM 


station I 

FG 

CSHIFT 

compressor variable-geometry effect 
on corrected flow 

FGM3 

CVAB 

average specific heat at constant 
volume in augmentor 

FGPT3 

CVB 

average specific heat at constant 
volume in combustor 

FGR(k) 

CVHC 

average specific heat at constant 

FNET 


volume in compressor 

FNM 

CVN 

exhaust nozzle velocity coefficient 

FSHIFT 

CVI 

specific heat at constant volume at 



station I 

Fl(k) 

DACI(k) 

DAC initial condition array. A: = 1 to 24 



corrected digital coefficient array, 
A:=l to 125 

high-pressure-turbine enthalpy drop 
high-pressure-turbine enthalpy 
required for torque balance 
high-pressure-turbine torque model 
evaluation ratio array, k=\ to 
NTOTAL 

high-pressure-turbine enthalpy drop 
required for energy balance 
high-pressure-turbine temperature 
model evaluation ratio array. A: = 1 to 
NTOTAL 

low-pressure-turbine enthalpy drop 
low-pressure-turbine enthalpy drop 
required for torque balance 
low-pressure-turbine torque model 
evaluation ratio array. A: = 1 to 
NTOTAL 

low-pressure-turbine enthalpy drop 
required for energy balance 

low-pressure-turbine temperature 
model evaluation ratio array, A:= 1 to 
NTOTAL 

specific temperature derivative at 
station I 

high-rotor-speed derivative 
low-rotor-speed derivative 
stored mass derivative at station I 
augmentor efficiency 
augmentor efficiency required for 
energy balance 

combustor efficiency model evaluation 
ratio array, Ar= 1 to NTOTAL 
compressor efficiency 
fan inside-diameter efficiency 
fan outside-diameter efficiency 
fuel-air ratio at station I 
gross thrust 

function of specific heat ratio at 
station 3 

compressor discharge bleed flow 
parameter 

nozzle velocity model evaluation ratio 
array, A:= 1 to NTOTAL 
net thrust 
nozzle gross thrust 

fan variable-geometry effect on 
corrected flow 

fan variable-geometry-effects map 
data array, Ar= 1 to 322 
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F2(k) 

compressor variable-geometry-effects 
map data array, /:= 1 to 322 

F3(k) 

fan map data array, k=\ to 854 

F4(k) 

compressor map data array, Ar=l to 
518 

F5(k) 

high-pressure-turbine map data array, 
k=l to 224 

F6(k) 

low-pressure-turbine map data array, 
k= \ to 224 

GMAB 

average specific heat ratio in aug- 
mentor 

GMB 

average specific heat ratio in com- 
bustor 

GMHC 

average specific heat ratio in com- 
pressor 

GMI 

specific heat ratio at station I 

GMIM 

specific heat ratio minus 1 at station I 

HAB 

average specific enthalpy in augmentor 

HABM 

PROCOM-rescaled augmentor specific 
enthalpy 

HB 

average specific enthalpy in combustor 

HBM 

PROCOM-rescaled combustor specific 
enthalpy 

HHCM 

PROCOM-rescaled compressor 
specific enthalpy 

HP4 

high-pressure-turbine enthalpy drop 
parameter 

HP41 

low-pressure-turbine enthalpy drop 
parameter 

HI 

specific enthalpy at station I 

HIM 

PROCOM-rescaled specific enthalpy 
at station I 

IP 

index on operating points (integer) 

KBH 

high-pressure-turbine bleed flow 
indicator (integer) 

KBL 

low-pressure-turbine bleed flow 
indicator (integer) 

KBV 

overboard bleed flow indicator 
(integer) 

NDRY 

number of dry operating points input 
to host program 

NI(k) 

fan variable-geometry-effects map 
integer array, k=l to 5 

N2(k) 

compressor variable-geometry-effects 
map integer array, k=\ to 5 

N3(k) 

fan map integer array, k=\ to 5 

LTSHFT 

low-pressure-turbine enthalpy map 
shift 

N4(k) 

compressor map integer array, k=\ to 


5 


N5(k) 

high-pressure-turbine map integer 
array, /:= 1 to 5 

N6(k) 

low-pressure-turbine map integer 
array, /:= 1 to 5 

N7(k) 

nozzle functions integer array, /:= 1 to 

3 

PRHC 

TRAT-rescaled compressor pressure 
ratio 

PRIF 

TRAT-rescaled fan inside-diameter 
pressure ratio 

PROF 

TRAT-rescaled fan outside-diameter 
pressure ratio 

PI 

total pressure at station I 

PIC 

calculated total pressure at station I 

PIR(k) 

model evaluation ratio array for total 
pressure at station I, k=l to 
NTOTAL 

POA 

FLCOND-rescaled ambient pressure 

POQT7 

exhaust nozzle pressure ratio 

P2A 

FLCOND-rescaled fan inlet total 
pressure 

P22Q2M 

fan inside-diameter pressure ratio 

RCVV 

compressor variable -geometry 
parameter 

TAM 

sea-level ambient temperature 

TAVAB 

average total temperature in aug- 
mentor 

TAVB 

average total temperature in com- 
bustor 

TAVHC 

average total temperature in com- 
pressor 

TRHCMl 

compressor temperature rise parameter 

TRIFMI 

fan inside-diameter temperature rise 
parameter 

TROFMl 

fan outside-diameter temperature rise 
parameter 

TOA 

FLCOND-rescaled ambient tem- 
perature 

TI 

total temperature at station I 

TIC 

calculated total temperature at station 
I 

PROCOM-rescaled total temperature 
at station I 

TIM 

TIR(k) 

model evaluation ratio array for total 
temperature at station I, k=l to 
NTOTAL 

T2A 

FLCOND-rescaled fan inlet total 
temperature 

WAR2 

fan corrected flow rate 

WAR2M 

nominal fan corrected flow rate 


no 



WAR22 

compressor corrected flow rate 

WAR22M 

nominal compressor corrected flow 
rate 

WAI 

airflow rate leaving station I 

WAIC 

calculated airflow rate leaving station I 

WAIR(k) 

model evaluation ratio array for 
airflow leaving station I, A:=l to 
NTOTAL 

WBLHT 

high-pressure-turbine cooling bleed 
flow rate 

WBLLT 

low-pressure-turbine cooling bleed 
flow rate 

WBLOV 

overboard bleed flow rate 

WF4 

combustor fuel flow rate 

WF7 

augmentor fuel flow rate 

WGI 

gas flow rate leaving station I 

WGIC 

calculated ratio array for gas flow rate 
leaving station I, A: = 1 to NTOTAL 

WG7M 

NOZZL-rescaled exhaust nozzle flow 
rate 

WP4 

high-pressure-turbine flow parameter 

WP41 

low-pressure-turbine flow parameter 

XF 

pressure-area term in gross thrust 
calculation 

XMN 

Mach number 

XMNM 

FLCOND-rescaled Mach number 

XNH 

high-spool rotor speed 

XNL 

low-spool rotor speed 

XI 

X input for map I 

X7(k) 

exhaust nozzle pressure ratio data 
array, A:= 1 to 15 

X8(k) 

low-pressure-turbine corrected speed 
data array, A:= 1 to 13 

XL 

Y input for map number I 

Y71(k) 

exhaust nozzle flow coefficient 
function data array, k=\ to 15 

Y72(k) 

exhaust nozzle velocity coefficient 
function data array. A: = 1 to 15 

Y8(k) 

low-pressure-turbine enthalpy map 
shift function data array, k = 1 to 13 

FLCOND. 

specified. 

-All variables are scaled unless otherwise 

ETAI 

inlet efficiency 

HT 

altitude 

INLET 

inlet configuration option (integer) 

Nl(k) 

ambient pressure function integer 
array, k = 1 to 3 

N2(k) 

*) function integer array, 

A:=lto3 


N3(k) 

(A/o-1)*-^^ function integer array, 
A:= 1 to 3 

PS 

ambient pressure 

PT 

fan inlet total pressure 

PTQS 

isentropic inlet pressure ratio 

TAS 

sea-level ambient pressure 

TR35 

(T2/ToVi'^y-^) 

TS 

ambient pressure 

TTQS 

inlet temperature ratio 

TT 

fan inlet total temperature 

XMO 

Mach number 

XMP 

supersonic Mach number minus 1 

XPP 

(Mo- 1)1-35 

XI (k) 

altitude data array. A: = 1 to 11 

X2(k) 

inlet temperature ratio data array, 
A:=lto 10 

X3(k) 

Mach-number-minus- 1 data array, 
Ar=l to7 

Yl(k) 

ambient pressure data array. A: = 1 to 
11 

Y2(k) 

(72/7o)T'r^l'’'r~ 1) data array, A:= 1 to 11 

Y3(k) 

(Mq- 1)1-35 data array, k= 1 to 7 

FUNI/FUNIL/FOOR.-AW variables are scaled unless 

otherwise specified. 

F(k) 

function data array, k determined by 
calling program 

FUNI/FUNIL 

function output 

I 

X variable search index (integer) 

MN 

saved function number for out-of- 
range message (integer) 

N(k) 

function integer array, k determined by 
calling program 

NXP 

number of points defining function 
(integer) 

X 

saved value of XIN for out-of-range 
message 

XFRAC 

fraction of X1NX2 interval covered by 
XIN 

XIN 

X input 

XI 

difference between XIN and value 

olX 

X2 

difference between XIN and 
value of X 

MAP /MAPI/ MOOR. -A\\ variables are scaled 

unless otherwise specified. 

F(k) 

map data array. A: determined by 
calling program 

I 

X variable search index (integer) 
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J 

Y variable search index (integer) 

F3(k) 

KX 

map data array index corresponding to 



X(I, J-h 1) (integer) 

F4(k) 

KZ 

map data array index corresponding to 



Z(I, J + 1) (integer) 

F5(k) 

LX 

map data array index corresponding to 



X(I, J -}- 1) (integer) 

F6(k) 

LZ 

map data array index corresponding to 



Z(I, J + 1) (integer) 

I 

MAP/MAPL 

map output 

IR 

MN 

saved map number for out-of-range 

IW 


message (integer) 

K1 

N(k) 

map integer array, k determined by 

K2 


calling program 

N 

NPROD 

number of points defining map 

Nl(k) 

NXP 

number of points per curve (integer) 

MUC 

number of curves in map (integer) 

N2(k) 

X 

saved value of XIN for out-of-range 


message 

N3(k) 

XFRAC 

fraction of XHI-XLO interval 
covered by XIN 

N4(k) 

XHI 

(/+ l)th breakpoint on interpolated 
YIN curve 

N5(k) 

XIN 

X input 

N6(k) 

XLO 

/th breakpoint on interpolated YIN 



curve 

SFX 

Y 

saved value of YIN for out-of-range 



message 

XC(k) 

Y1 

difference between YIN and /th value 



of Y in map 

YC(k) 

Y2 

difference between YIN and (/+l)th 



value of Y in map 

ZC(k) 

YIN 

Y input 


YINCR 

fraction on Y(J + 1)-Y(J) interval 


ZH 

covered by YIN 

NOZZL. 

map output at XHI, YIN 

specified. 

ZL 

MAPIN 

map output at XLO,YIN 

AEQTXX 

ATXX 

BSCIVV 

bias on fan variable-geometry 



parameter, deg 

A7 

BSRCVV 

bias on compressor variable-geometry 
parameter, deg 

A8 

A8Q7 

CD7 

DC(k) 

corrected digital coefficient array 
(scaled fraction), A:= 1 to 125 

Fl(k) 

fan variable-geometry-effects map 

CV8 


data array (scaled fraction), A:=l to 
322 

DC(k) 

F2(k) 

compressor variable-geometry-effects 

F8 


map data array (scaled fraction), A:= 1 
to 322 

Nl(k) 


fan map data array (scaled fraction), 
k= \ to 854 

compressor map data array (scaled 
fraction), /:= 1 to 518 
high-pressure-turbine map data array 
(scaled fraction), k=l to 224 
low-pressure-turbine map data array 
(scaled fraction), A:= 1 to 224 
integer index 

card input device number (integer) 
line printer device number (integer) 
integer index 
integer index 
integer index 

fan variable-geometry-effects map 
integer array, A: = 1 to 5 
compressor variable-geometry-effects 
map integer array, /:= 1 to 5 
fan map integer array, k=l to 5 
compressor map integer array, k=\ to 
5 

high-pressure-turbine map integer 
array, /: = 1 to 5 

low-pressure-turbine map integer 
array. A: = 1 to 5 

scale factor on variable X, appropriate 
units 

map scale factor array for X input 
variables, A: = 1 to 6 
map scale factor array for Y input 
variables, A: = 1 to 6 
map scale factor array for Z output 
variables, A:= 1 to 12 

variables are scaled unless otherwise 

ratio of exit area to area at which sonic 
flow is reached 

reduced throat area that results in sonic 
flow 

throat area 
exit area 
expansion ratio 
flow coefficient 
velocity coefficient 

corrected digital coefficient, k=l to 
125 

gross thrust 

critical pressure ratio function integer 
array, k = 1 to 3 
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N2(k) 

subsonic functions integer array, k=\ 
to 3 

CBLHR(k) 

high-pressure-turbine bleed model 
evaluation ratio array, k = \ to 

N3(k) 

supersonic functions integer array, 


NTOTAL 


1 to 3 

CBLLR(k) 

low-pressure-turbine bleed model 

PE 

exit plane pressure 


evaluation ration, Ar= 1 to NTOTAL 

PEQ7 

critical pressure ratio 

CBLVR(k) 

overboard bleed model evaluation 

PTOL 

difference between computed exit 


ratio array, A:= 1 to NTOTAL 


plane pressure and ambient pressure 
for subsonic exit flow 

CC(k) 

correction factor array (floating 
point). A: = 1 to 50 

PYQT 

pressure ratio at which shock is in exit 

CDN 

exhaust nozzle flow coefficient 


plane 

CIVV 

fan variable-geometry parameter, deg 

PYQX 

static pressure ratio across shock 

CPAB 

average specific he'at at constant 

PO 

ambient pressure 


pressure in augmentor, J/kg K 

POQT7 

ambient to total pressure ratio 


(Btu/lbm "R) 

POYQX 

total to static pressure ratio across 
shock 

CPB 

average specific heat at constant 
pressure in combustor, J/kg K 

P7 

inlet total pressure 


(Btu/lbm °R) 

POYQOX 

total pressure ratio across shock 

CPHC 

average specific heat at constant 
pressure in compressor, J/kg K 

T7 

inlet total temperature 


(Btu/lbm “R) 

VE 

exit velocity 

CPI 

specific heat at constant pressure at 

W7 

mass flow rate 


station I, J/kg K (Btu/lbm ®R) 

XF 

pressure-area term in gross thrust 
equation 

eVAB 

average specific heat at constant 
volume in augmentor, J/kg K 

XMN 

Mach number upstream of shock 


(Btu/lbm °R) 

XMX 

dimensionless velocity 

CVB 

average specific heat at constant 

XSHFT 

area ratio shift on dimensionless 
velocity-pressure ratio fit 


volume in combustor, J/kg K 
(Btu/lbm °R) 

Xl(k) 

subsonic flow area ratio data array, 
k= \ to 15 

CVHC 

average specific heat at constant 
volume in compressor, J/kg K 

X2(k) 

subsonic flow pressure ratio data 


(Btu/lbm ’’R) 


array, k= \ to 15 

CVN 

exhaust nozzle velocity coefficient 

X3(k) 

supersonic flow area ratio data array, 
k= \ to 15 

CVI 

specific heat at constant volume at 
station I, J/kg K (Btu/lbm ®R) 

Yl(k) 

critical pressure ratio data array, k= 1 

DACI(k) 

DAC initial condition array, /: = 1 to 24 


to 15 

DC(k) 

corrected digital coefficient array. 

Y21(k) 

subsonic dimensionless velocity data 


A:=l to 125 


array, k= \ to 15 

DDC(k) 

array used to save unlimited digital 

,Y22(k) 

AEQTXX data array, k=l to 15 


coefficients, A:=l to 125 

Y31(k) 

XMN data array, k= \ to 15 

DH4 

high-pressure-turbine enthalpy drop. 

Y32(k) 

supersonic pressure ratio data array. 


J/kg (Btu/lbm) 


k= \ to 15 

DH4QR(k) 

high-pressure-turbine torque model 

Y33(k) 

supersonic dimensionless velocity data 
array, k= \ to 15 

DH4TR(k) 

evaluation ratio array, A:=l to 
NTOTAL 

high-pressure-turbine temperature 

PRINT. 

variables. 

-Same symbols used for unsealed and scaled 

model evaluation ratio array, k=\ io 
NTOTAL 

AADR(k) 

integrator address array (integer), Ar= 1 
to 16 

DH41 

low-pressure-turbine enthalpy drop, 
J/kg (Btu/lbm) 

AE 

exhaust nozzle exit area, cm2 (in2) 

DH41QR(k) 

low-pressure-turbine torque model 

ALT 

altitude, m (ft) 


evaluation ratio array, k=\ to 

ALTM 

FLCOND-rescaled altitude 


NTOTAL 
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DH41TR(k) 

low-pressure-turbine temperature 
model evaluation ratio array, k=\ to 
NTOTAL 

DP13R(k) 

bypass duct model evaluation ratio 
array, 1 to NTOTAL 

DP6R(k) 

augmentor duct model evaluation ratio 
array, /:= 1 to NTOTAL 

DTQWI 

specific temperature derivative at 
station I (scaled) 

DXNH 

high-rotor-speed derivative (scaled) 

DXNL 

low-rotor-speed derivative (scaled) 

DWI 

stored mass derivative at station I 
(scaled) 

ETAAB 

augmentor efficiency 

ETAABR(k) 

augmentor efficiency model evaluation 
ratio array, A:= 1 to NTOTAL 

ETAB 

combustor efficiency 

ETABR(k) 

combustor efficiency model evaluation 
ratio array, /:= 1 to NTOTAL 

ETAHCM 

compressor efficiency 

ETAIFM 

fan inside-diameter efficiency 

ETAOFM 

fan outside-diameter efficiency 

FARIM 

fuel-air ratio at station I 

FD(k) 

array used to save indices of out-of- 
range corrected digital coefficients, 
k=l to 125 

FN 

net thrust, N (Ibf) 

GLD 

array used to save indices of out-of- 
range uncorrected digital coefficients, 
k=l to 125 

GMAB 

average specific heat ratio in aug- 
mentor 

GMB 

average specific heat ratio in com- 
bustor 

GMHC 

average specific heat ratio in com- 
pressor 

GMI 

specific heat ratio at station I 

HAB 

average specific enthalpy in 
augmentor, J/kg (Btu/lbm) 

HABM 

PROCOM-rescaled augmentor specific 
enthalpy, J/kg (Btu/lbm) 

HB 

average specific enthalpy in 
combustor, J/kg (Btu/lbm) 

HBM 

PROCOM-rescaled combustor specific 
enthalpy, J/kg (Btu/lbm) 

HHCM 

PROCOM-rescaled compressor 
specific enthalpy 

HP4 

high-pressure-turbine enthalpy drop 
parameter (scaled) 

HR41 

low-pressure-turbine enthalpy drop 
parameter (scaled) 


HI 

specific enthalpy at station I, J/kg 
(Btu/lbm) 

HIM 

PROCOM-rescaled specific enthalpy 
at station I 

I 

integer index 

IG(k) 

integrator gain integer array, /:=! to 
10 

INLET 

inlet configuration option (integer) 

IP 

index on operating points (integer) 

IPNCH 

card punch device number (integer) 

IPRINT 

index for subroutine PRINT (integer) 

IW 

line printer device number (integer) 

J 

integer index 

JJ 

integer index 

JP 

punch option (integer) (1 for output of 
all data) 

JPA 

punch option (integer) 1 for output of 
analog data) 

JPD 

punch option (integer) (1 for output of 
digital data) 

K 

integer index 

KBH 

high-pressure-turbine bleed flow 
indicator (integer) 

KBL 

low-pressure-turbine bleed flow 
indicator (integer) 

KBV 

overboard bleed flow indicator 
(integer) 

K1 

number of out-of-range uncorrected 
digital coefficients (integer) 

K3 

number of zero uncorrected digital 
coefficients (integer) 

K4 

number of out-of-range corrected 
digital coefficients (integer) 

N 

integer index 

NTOTAL 

total number of operating points input 
to host program (integer) 

PADR(k) 

potentiometer address array 
(alphanumeric), /:=! to 53 

PLA 

power lever angle (operating point 
label), deg 

PRHC 

TRAT-rescaled compressor pressure 
ratio 

PRIF 

TRAT-rescaled fan inside-diameter 
pressure ratio 

PROF 

TRAT-rescaled fan outside-diameter 
pressure ratio 

PVAL(k) 

potentiometer setting array, /:= 1 to 53 

PI 

total pressure at station I, N/cm^ (psia) 

PIR(k) 

model evaluation ratio array for total 
pressure at station I, k = l to 
NTOTAL 
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POA 

P2A 

P2D 

P22D 

P22Q2M 

RCVV 

RTT2 

RTT22 

RTT4 

RTT41 

SFX 

TAM 

TAVAB 

TAVB 

TAVHC 

TRHCMl 

TRIFMl 

TROFMl 

TI 

TIM 

TIR(k) 

T2A 

UDC(k) 

WAR2 

WAR22 

WAI 

T2D 

T22D 


FLCOND-rescaled ambient pressure 

FLCOND-rescaled fan inlet total 
pressure 

fan inlet total pressure at design point, 
N/cm2 (psia) 

compressor inlet total pressure at 
design point, N/cm2 (psia) 
fan inside-diameter pressure ratio 
compressor variable geometry 
parameter, deg 

square root of scaled fan inlet total 
temperature 

square root of scaled compressor inlet 
total temperature 

square root of scaled high-pressure- 
turbine inlet total temperature 
square root of scaled low-pressure- 
turbine inlet total temperature 
scale factor on variable X, appropriate 
units 

sea-level ambient temperature, K (°R) 
average total temperature in 
augmentor, K (°R) 

average total temperature in 
combustor, K (°R) 

average total temperature in 
compressor, K (°R) 
compressor temperature rise parameter 
fan inside-diameter temperature rise 
parameter 

fan outside-diameter temperature rise 
parameter 

total temperature at station I, K (°R) 
PROCOM-rescaled total temperature 
at station I 

model evaluation ratio array for total 
temperature at station I, A:=l to 
NTOTAL 

FLCOND-rescaled fan inlet total 
temperature 

uncorrected digital coefficient array, 
A:=l to 125 

fan corrected flow rate, kg/sec 
flbm/sec) 

compressor corrected flow rate, kg/sec 
(Ibm/sec) 

airflow rate leaving station I, kg/sec 
(Ibm/sec) 

fan inlet total temperature at design 
point, K (®R) 

compressor inlet total temperature at 
design point, K (*R) 


WAIR(k) 

model evaluation ratio array for 
airflow leaving station I, k=\ to 
NTOTAL 

WA2D 

fan flow rate at design point, kg/sec 
(Ibm/sec) 

WA22D 

compressor flow rate at design point, 
kg/sec Obm/sec) 

WBLHT 

high-pressure-turbine cooling bleed 
flow rate, kg/sec (Ibm/sec) 

WBLLT 

low-pressure-turbine cooling bleed 
flow rate, kg/sec Obm/sec) 

WBLOV 

overboard bleed flow rate, kg/sec 
Obm/sec) 

WF4 

combustor fuel flow rate, kg/sec 
Obm/sec) 

WF7 

augmentor fuel flow rate, kg/sec 
Obm/sec) 

WGI 

gas flow rate leaving station I, kg/sec 
Obm/sec) 

WGIR(k) 

model evaluation ratio array for gas 
flow rate leaving station I, A:=l to 
NTOTAL 

WP4 

high-pressure-turbine flow parameter 
(scaled) 

WP41 

low-pressure-turbine flow parameter 
(scaled) 

XMN 

Mach number 

XMNM 

FLCOND-rescaled Mach number 

XNH 

high-spool rotor speed, rpm 

XNL 

low-spool rotor speed, rpm 

XI 

X input for map I 

YI 

Y input for map I 

ZC(k) 

map scale factor array for Z output 
variables, k= \ to 12 

DZ(k) 

array used to save indices of zero 
uncorrected digital coefficients. A: = 1 
to 125 

PROCOM. 

-All variables are scaled. 

AMW 

molecular weight 

CP 

specific heat at constant pressure 

CPA 

specific heat at constant pressure of air 

CPF 

specific heat at constant pressure of 
fuel 

CV 

specific heat at constant volume 

FA 

fuel-air ratio 

GAM 

specific heat ratio 

H 

specific enthalpy 

HA 

specific enthalpy of air 

HF 

specific enthalpy of fuel 

R 

gas constant 
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T 

total temperature 

N3(k) 

compressor function integer array, 

TD 

3500° F minus T 

PRC 

/:=! to 3 

component pressure ratio 

SPOOL. 

- Same symbol used for unsealed and scaled 

S 

pressure ratio effect on specific heat 

rotor speed 



ratio shift 

IGAIN 

integrator gain integer 

TR 

(AT/Tlid 

PI 

3.1416 

TRC 

(A777)id for specific heat ratio of 1.35 

POT(k) 

potentiometer setting array, k= \ to 2 

XI (k) 

component pressure ratio data array. 

POTII 

required gain of potentiometer- 


k= \ to 25 

SFDH 

integrator combination 
scale factor on turbine enthalpy drop, 

Yl(k) 

function data array, k=\ to 25 


appropriate units 

VOLUME. 

-Same symbol used for unsealed and 

SFWG 

scale factor on turbine flow rate, 

scaled pressure and temperature. 


appropriate units 

IGAIN 

integrator gain integer 

SFXN 

scale factor on rotor speed. 

P 

total pressure in volume, N/cm2 (psia) 


rpm/computer unit 

POT(k) 

potentiometer setting array, /:= 1 to 5 

TSC 

time scale factor 

POT2I 

required gain of potentiometer- 

XI 

rotor moment of inertia, N cm sec^ 


integrator combination 


(Ibf in sec2) 

RA 

gas constant of air, 2.8699x 104 

XJ 

mechanical equivalent of heat, 


N cm/kg K (640.1 in Ibf/lbm °R) 


100 N cm/J (9339.6 Ibf/in) 

SFP 

scale factor on total pressure, 

XN 

rotor speed, rpm 

SFTT 

appropriate units 

scale factor on total temperature. 

TRAT.- 

All variables are scaled fractions unless 


appropriate units 

Otherwise specified. 

SFW 

scale factor on stored mass. 

C 

variable specific heat ratio effect on 


appropriate units 


(Ar/7)id 

SFWG 

scale factor on flow rate through 

GAM 

average component specific heat ratio 


volume, appropriate units 

N 

component identifying integer, N- 1 

TSC 

time scale factor 


to 3 

TT 

total temperature in volume, K (°R) 

Nl(k) 

fan outside-diameter function integer 

V 

volume, cm3 (in3) 


array. A: = 1 to 3 

W 

stored mass in volume, kg (Ibm) 

N2(k) 

fan inside-diameter function integer 
array, /:= 1 to 3 

WS 

stored mass in volume (scaled) 
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